ABNRgT 



ARPTNi 



AF 



?6PA/G£N 
P387-EGU 



312/Ll 

328/D6 

33*t27/ERReR 

AMJ8RG 

10R3tl/LUl 
AMJSTD8P 

AM8UF 

59/DfF 
ARS 

245.EGU 
ASSEMBLF 

P815-LI 
ASSIGN 

160/REF 
102*/BaL 
AT6Z 

P317/CLM 
A1 

784-EGU 

e 

336t2£/GFN 

2848ti7/CMND 

2848«24/C!*ND 

?«4Ri31/DCMND 

2848t41/CMND 

2848t53/CMND 

2848»61/CMND 

2848t69/CMN0 

2848»7*/CMND 



3627/GEN 

S689/DATA 

31P/LI 
331 /LCI 

835ii/LW 
I0»5t1/STW 

6&5ti/8R 
243*EQU 

454/LW 

P848t24/CMNiD 

643/BAL 
lOgn/BAL 

S327»DATA 

844/BG 

336*g7/ERR8R 
P84S»lK/CMND 

2848«2R/CMND 
2a4»»3P/CMND 
2S4«t4P/CMND 
2848#54/CMND 
2848t63/CMND 
284*«7n/CMND 
284«»77/DCMND 



3553-SL S 



313/MSP 
333/GFN 



837»1/STW 

1037«1/STS 
3474/L! 
665/STS 



645/BaL 
1068/BaL 



P848 
2848 
2848 
28*8 
2848 
2848 
2848 
2848 
2848 



•11/CMND 
•19/CMND 

•26/CMND 
•34/CMND 
•43/CM^D 

•55/CMND 
•64/DCMNO 
•71/CMND 
#78/CMND 



322/08 
336tl4/SET 



933tl/LW 



114gtl/STS 



3B57/Lfc 



799/BAL 
1083/BAL 



?848t 
P848* 
P848* 
P8*8« 
P848t 
P848* 
?848t 
P848* 
P848* 



12/CMND 
20/CMND 

27/CMNiD 
37/CMND 

**/CM*D 
B7/CMND 
65/CMNO 
72/CMND 
79/DCHNd 



323/QEN 
336#20/TEXT 



935H/STW 
1158.1/ANO 



83?5/BAL 



2848 
2848 
2848 
28*8 
2848 
2848 
2848 
2848 
2848 



•13/CMND 
•21/CMND 

•29/CMND 
•3S/CMND 
t48/CMND 
•58/CMND 
•66/CMND 
•73/CMND 
•80/CMND 



325/D0 
336»26/GEN 



1068tl/LW 



H52i2/STW 



897/BAL 



2848 
2848 
2848 
2848 
2848 
2848 
2848 
2848 



•14/DCMND 
#22/CMNP 

t30/0CMND 

•39/CMND 

•46/CMND 

•59/DCMND 

•67/CMNO 

•74/CMNQ 



326/I4EN 
336i26/yEN 



1Q7G»1/STW 



1236#3/AI 



933/BAL 



2848«16/gMND 
2848»23/GMND 

2848i40/LMND 
g848t47/CMN0 
2848t60/CMND 
88*8t68/tMND 
2848*75/LMND 



P800/EQU 

Backup 
basic 

P597.TEXTC 

Batch 

P490/LD 
BATCHP 

P489-EGU 
BTNA 

3681 -It 

BTNDCB 

3617-&ES 

4106/BaI 
BTKfDECBCD 

P473/BAL 
BITS 

4«1«SFT 

BKM80 

P6CP-TFXT 
BK*PT 

309*«Lt 
BKftPTo 

53B/BEZ 

BKUPCAL 

P384/CAU1 

bkupkfv 

?71?/DATA 

BLANKBUF 

147?/8Al 

biqmtfl 
brfakfr 

397/BaNZ 

brkbit 

il*/DFF 



*80n/EGU 

284»t73/CMND 

259**TEXTC 

284*«57/CMND 

362*/8GE£ 

396*/BAl 
MlA/BAl 

X744/BAL 
345F/BAI 

309A/LI 

569/BEZ 
£733«GEN 
272*/DATA 
3744*EGU 

38Q/BAL 
£84R»«ES 

343-EQU 



2809/EG5U 



2R09/EGU 



3410/EQU 



3410/EQU 



3971/BaL 



1841/BAL 
3618-EGU 



1368/LT 



8738*TFXTC 



3984/BAL 
2163/BAt 



1P514/BNE 



3989/BAL 
SH66/BAL 



40Q0^BAL 
2169/BAL 



4033/tfAL 
22Q8/SAL 



3093»EQU 



396/Cl 



659/LI 



3874#SLD 


389S/B 




BUFIKT 






404»RFS 


284*/B 




build 






1 lli-EOU 


284**34/CMND 




BUILDa 






5 113/LD 


284*»5*»CI*>ND 




bump 






3in*CMAME 






Cancel 






gA4RtS8/CMND 


38on»EQU 


3830/B 


CANCl 






3811/CAll 


385A-EQU 




Carretrn 






?17*/IW 


2*g*/LW 


2194/LW 


CCiUFBlT 






127/DFF 


355»EQU 


405/LT 


CCBUFTEL 






40^/BAl 


389s»LI 




cdp6 






201 /REF 


*08*/LW 




cmarqfs 






4093-8AL 


*22n/B 




CHAR8K 






336^/Bp 


3371-CI 




CHAR8K5 






337P/BF 


3374/BNE 


3377-CT 


ChGV 






430?«»TFXT 
CHKBUFl 

378tl/BAl 






39Q6ti/8AL 


39l3tl#»EQU 


CHKULM 






777/BF 


791 /B 


819/BNlEZ 


1043/BG 


Hon.EQU 


3375/LI 


3<fP5?/B 


342A/B 


3427/B 


CMNGERR 







712/LI 



852/BE 
3389/LI 

3429/B 



235S/LI 



2556-OATA 



876/BE 
3^21/B 
3430/B 



930^BNE2 
3422/B 
3431/B 



1005/&E 
3423/8 



1930/BCS 


1933. BUMP 












CHNGTYPe 














1917/BNE 


J9gq«CALl 












CTC 














198/REF 














clfanstack 














60/DFF 


234R/LI 


3486»RfS 


3555/BE 


3B64/B 


3779/11 




CMNO 














336ttO.OAME 














CMNDSFT 














1115/B 


X123/B 


1124-EGU 










CMNERR1 














61/OrF 


87.1 /B 


1176.10/B 


1339/B 


1375t2S/B 


1375*35/8 


1544/& 


231?«10/ 8 


8357/B 


2402/B 


?4«7»59/B 


2B37-EQU 


3C82/B 


30^1/^ 


3111/B 


3321/8 


3889/B 










CNCLMSG 














384<*»l! 


385A/B 












CNCLlD 














3813/B 


3817.CI 












CNCL20 














383P-EQU 


'3861 /DATA 












CNCL3D 














3837/BNE 


3847.EGU 












CNCL9 














3814-EQU 


381R/BL 












CftCLN 














308/RF^ 


X93H/LW 


1954/CB 


213Q/CB 








CBCMESS 














198.1/RFF 


4!UtR/Lt 












C0CML86P 














198?«SLS 


199H/BNEZ 












C8C6FF 














1993/LT 


2041 .TEXT 












CftCBN 














1990/1! 


204n»TEXT 












C8CPRT 














1979/BaL 


198^/BAL 


200OEQU 











C8CSTAT 

1883/BE 

CSCSTATC 

41*/CAll 

C8CSTAT0 

19F2#?/BA4 
C8CSTAT1 

1967/8 
CftCSTATP 

19B0.?/BlE 
C8MFIG 

12#/DfF 

C8MMA 

179F/BE 

COMMENT 

1 163»Ll 

C8MPILE 

28l8-»Lf 

C8NCAT 

3147-EGU 

C8NCATA 

3150-A? 
C8NCATB 

3153/BF 
C8MCATE 

316?/BF 
C8MCATN 

■3160-LB 
C8NT1NU 

367S/BCR 
C8NTINUF 

133S-LI 
C8NTINX 

74TI/B 

CBNV 

<f29F*TFXT 

C8NVBJN 



1894/BE 
195D/CAL1 

195RJ/BE 

196<*»LW 

l9S0t*/BANZ 

35P-EGU 

X800/BE 

28<f««59/DCMND 

2«4*»6n/CMND 

315S/BIR 
315A-STB 

3lfeA«STB 
316R/8TR 
3677/BCR 
284»i47/CMND 
1337/BEZ 



1898/Bf 

20U-GFN 

1968-LT 

1973tl-LB 

1019/LI 
1808-EGU 



3680-SLS 
J?848t5<f/CMND 
13M»RFS 



1938»LW 
231?t6/CALl 



1063/LI 



1163/LI 



P8<*8.61/CMND 



P2H3/B 

csuplf 

P09£*EGU 
C6UPLF1 

PG99/8F 
CSUPLFP 

P107/BG 
C9UPLE3 

P1PP/BGE 

C8UPLF5 

P13F/BCS 
CPLCMn 

CPLMSG 

1969/LW 
CPB 

199/RFF 
CPU 

4288»DaTA 

cpuv 

4291-TFXT 
CPXBRFAK 

19Q«3/RFF 
CPXFND 

ftltl/DFF 

CPXREAD 

190t?/RFF 

CPXUSR 

R^.l/DFF 

CRATE 

4020/CAll 

CTFPT 

2?5Ri2^/CAll 

cuPe 

200/RFF 
CiCA 

P58!«DATA 



#207»RFS 
2S4»i77/0CMND 

2lO*«CI 
2ll4*LI 
8l2A»EGU 

2i4n*Ll 

2lQ9tP»AI 

805P-0ATA 
*07R/IW 



28^7tl/BAL 
451t20«EQU 
45X»2«/BANZ 
2$6t3«EQU 
4214/CALl 
2758*13«GEN 
*Q83/IW 
367A/CLM 



4077/U 



#51»26/LW 
4251-RFS 



489t2/LW 



DBITS1 

2R<*8ig<f..DATA 
DBTTSP 

2848i87.DATA 
DBTT1 

336t*«SPT 
DBTTP 

336t«?-SPT 
DBL10 

566/8ANZ 
DBUG 

DCACCFSS 

2G?/*FF 

DCBTAB? 

ioo/Dff 

PCMNO 

336tll«CNAM£ 

DCMPRS 

587tl<*/EXU 

DfBUG 

1 14P.EGU 

PFBUG1 

1 US/BnEZ 

dfbug? 

1148. ?/B 
DfCBIN 

6P/DFF 

DFCBIN1 

364P-IB 
DFCBINIO 

4164/BaI 
DfCBINU 

427P«RFS 
DFCBINP1 

427A/BCS 
DFCBUPLE 



8848«101/Cfc 
H848»l0P/CUi 
33*»31»SET 

336t3R»SET 

57n«-EUU 
391/08 

*05*/anD 

26A»FQU 

H848U01-CW 
284**7«9/DCMND 
1151»EQU 
11^2iS»BAL 
1711/BAl 

365n/BDR 
^174/BAL 

*?7*/BDR 
<*283*RES 



336«3l/$FT 
336t35/SET 

685/D© 

266U/EGU 



1784/BAL 



4269-RFS 



P848.86/0ATA 
p848»87/DATA 

13*4/001 



347B/DB1 



1803/BAL 



1818/BAL 



1924/BAL 



3638- HUSH 



poss.equ 
DrLTA 

669/CD 
DfLTABIT 

121 /OEf 
DFLTAeK 

1366/8AZ 

Dfltaset 

DFITA1 

127*/CD 
OISPFPT 

P161/CAL1 
DISPLAY 

P159-RFS 
DTSPSW 

2487tl4/8L£ 
DNTSENP 

2PBRfl9/BANZ 

D9BLT 

1021/BNEZ 

DftLL 

776/U 

DftU 

856/BANZ 

D9181 

991 /BNE 
DftME 

779/Bp 
D8MF1 

829«LCl 

D9ME2 

827/BpZ 

DANE 

1810/BNE 

D8NE 

39l*/8PEN 



284»»7A/CMND 
681 /ID 
3*9»EQU 
i37l»EGU 
284«»70/CMND 
S589-TEXT 
822A»RES 
28**»43/CMNQ 
2487»7l»EQU 
225«t2P»EQU 
10<*A»EQU 
8RR/CW 
9gq»EQU 

82*«L1 
83Q/B 
83*»LW 
X823-EGU 



a 



710/CW 
499/LT 



2848#63/CMN0 



1004/CW 



3917/CL6SE 
4146»RrS 



1372/LD 
678/LI 



1373/LD 
1279/UI 



2590-TEXTC 



1292/CW 



2S42-TEXT 



DftNT 

1l7lt 1-EQU 

D8NITBTT 

12*/DpF 

P090/LI 
D9MT6K 

RR7tiR/8ANZ 
D6SN 

781/BE 

D8PVER 

783/BF 
DaeVEPl 

84P/B 

d&ublfi 

5l9«9/BG 

DPACCFSS 

210/RFF 

DswLeeP 

24»7»7f«SLS 

ECHe 

19C«*/RF F 
EDIT 

1114/LD 
EDITA 

1 ISM AD 

EDITO 

1 119*ECU 

EHMSS 

P457/U 
ENTPRG 

7S3-EGU 

EL." A 59E. 

?0A9»9.EQU 

ERASFPT 

2069»l?/CAtl 
ERBIK 

367P/B 



354«EGU 
*097/U 

B8?«17*PULU 
841»U 

843»CI 
84*»EQU 
519.1S/BQZ 
4Q5«/AND 
2487«89/BlB 
284**31/DCMND 
112P/L0 
«58P*TEXT 
284*t37/CMND 
«557»DATA 
8l*/BLE 

284*»7*/CMND 
2746 § 4»GEN 
3687»t I 



§87t4/LT 
2?S8tl7/L! 



1219/Br 
1221/BF 



*52/U 



1143/LI 



1175/U 



1227/UI 



564-EQU 



2S91-TFXTC p848t!0/ChND 2848.5&/CMND 



3457/LM 
864/BAKZ 



1106/B 



10 



ER8 










14S/RFF 


3509/STS 


3615/U 


3Sifi#3/STS 


352P#S/STS 


ERRABNl 










393/Bf* 


35on/BAZ 


3512-EGU 






ETMFOT 










P183/LM 


&23n»RES 








EXLYBIT 










85/DFF 


X36K/CW 


2550-FOU 






EXPNDSZ 










9^/DFF 


26P«EQU 


263/EOU 






EXTDG6 










849/8F 


9&3-RES 








EXTFND 










PQ73*EGU 


284»»74/CMND 








EXTNDBIT 










1^4/DFF 


369*EaU 


2084/LW 






fdp 










667/CD 


1350/LD 


1351/lD 


?R85«TEXTC 




FDPBIT 










1??/0£F 


35n»EGU 


671/LT 


1P85/LI 




FDPSFT 










1349.RFS 


28#«*17/CMND 








FDPl 










67P/LD 


X283/CD 


2587-TFXT 






FFXTIMG 










«5»i/DFF 


26o§i*FQU 


26G»2/EGU 


A99t2/AND 


899»3/5TW 


10S2«?/AND 


10S2.3/STW 








FTD 










63/DFF 


537/BAL 


1247/BaL 


2332/BAl 


282B/8AL 


FTDFR 










?82?uBaL 


3424/B 








FTD8 










3720.CI 


3730/B 








ftdp 










3784.PULL 


973«/8 








FtDS 










3713/Bp 


371R/BF 


3727-lfI 







1028t2/AND 



37Q9*LI 



l02B»3/i?TW 



n 



FTD4 














3721/Bp 


3731 .PUSH 












ftlfnt 














163/RfF 


801 /BAL 


899/BaL 


1027/BAL 


105P/8AL 






FTPR8C 














129/DpF 


357»CQU 


877/LI 


1006/LI 


P829/LI 






FLAGS 














493/AND 


255*»DATA 












FL*P 














64/DpF 


891 /BAL 


1016/BaL 


2334/BAl 


3*51 -PUSH 






FL^PBITS 














P568«DaTa 


3234/L* 












FLePBUF 














8a/Def 


26K»EQU 


266/EQU 


2377/Lh 


3»60/STM 


3262/S5TW 


3£63/STfo 


3?69/STtf 


327P/STM 


3276/STH 


3P78/CAL1 








FMTFLCL 














206/RFF 


1464/BAL 


1517/BAL 


1561/8AL 


162S.1/BAI 


2333/BAL 


2383/bAL 


3810/BAl 














F8RSFC 














274-EQU 


3944/DBl 


3947/D61 


3955/D© 


3962/D8 


4160^06 


4210/^^ 


fqrtran 














?59«?»TFXTC 


S819/LD 












FeUNDP 














189C/BE 


189*«RES 












FPFPT 














87/DFF 


875p#G£N 


3476/CALi 


^5A4«5i/CAli 


3RA4.53/CAL1 


3913'CALl 




FPMC 














19P/RFF 


3913m*/LI 












FRBFXT 














3911/BE 


39*3»?«B 












FREFBUF1 














6B/0FF 


69*/BAL 


722/BAL 


3902-FQU 








FnF9 














fta/DpF 


258n»DATA 


3674/CLM 










Gasp 














1684/LI 


1688»TFXT 












GC9MNPG 
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1521/CAUl 


2703«GEN 










GfT 












803/RfF 


284«*ii/CMND 


P848«53/CMKD 








GFTACPAS 












78«!/BAL 


1869.RES 










GfTFJFLD 












66/DFF 


5Q7/BAL 


767/BAL 


85Q/BAL 


124&/BAL 


1394/BAL 


1783/BAL 


*86s»LD 


2331/BAL 


P487»l6/BAt 


2487i33/BAL 




GFTID 












137Rt3?/CAll 


27^8tQ.GEN 










GFTPG 












?348/CaI*1 


£70*"GF.N 










GFTSBi 












378i?/e 


378t7»EQU 










GfTSW 












J?487t33*BAL 


2i*8/t5^/BDR 










GfTSWX 












2487«37/B 


248?«5i/BNE 


P487t6l»E0U 








GIVFBIRD 












587§lfc/B 


654/BNE 


il76«9*L! 


P092/BNE 






gtvemfh 












1 55?/BaZ 


156n/BLE 


2103/BG 


8131/BE 


?456*EQU 


38*9/BNE 


G&TUSR8 












3185/BE 


320*»EQU 










GPFPT 












89/DpF 


37St9/CAUi 


2751-GFK 








GR6UPP 












614. UW 


1353/B 


1375/B 


1375»51/B 


1R3P/B 


2492/8 


P820/B 


*83«J/B 










GR9UPPA 












586/B 


6l*.Lfc 










GRSUPpB 












54*/B 


61Q.EGU 


1257/BLE 








GRaUPpC 












6P8.EQU 


711 /BE 


755/B 








GRPFXT 












637/Bf* 


64P»LD 











1421/^AL 



2817/b 



6RPEXT1 

M1/B 
GRP£Xt? 

647/BNE 
HFXPBTN 

?l?0/BAl 

hfxpebc 

67/DEF 
HFXPEBC1 

35*7. LI 

HF.X?EBCP 

359P/BF 
HFXPESKP 

3584/LI 
HXX 

HXXB 
HXXC 

HXXL 
HXXU 

I 
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4131/B 

4133/Bp 

M3B-STB 

413P-CI 

4137-AT 



336#*/9PEN 
336t38/CL8SE 
INBREAK 

62^/BE* 

INBREAK1 

6*/DEF 

INTV 

429«»«TFXT 

IQUIT 

131/DEF 
KA4t2/CW 
ITSBK 



644.LD 

6*51 »BAL 
g44n/BAL 

427/BAL 
360P/BIR 
3600»BIR 
359n*EQU 
M3**LB 
*U1«RES 
#U*/BNE 
413A/B0R 
M4R/B 
3^6t7nSET 

7o<J»FQU 
7l*.EQU 



399ti»EQU 
I5l2ti/Cw 



808/8KEZ 
3668-EQU 

1939/BAL 



336t29«SFT 

3542/B 
736/BAZ 



3093«l/lW 



38Q8/BAL 
1957/BAL 



336.29/SET 



739/BANZ 



467tl/SW 



358P-EQU 



33fe«3Q/SET 



336t3l/SET 



*«Q»1/LW 



489tl/LW 



530«1/^W 



1* 



M1/B 


<f9?»LW 












ITS6K10 














48?/8 


49«/BA2 


S01-EQU 










336«*/0PEN 


336t7«SFT 


336.33-SFT 


336t33/SET 


336-34/SET 


336.35/SET 




336f3*/CL0SE 














JlABC 














144/R£F 


39A/LB 


720/ST8 


3511/ST8 


3517/LB 


35l8il/STB 


3522«3/STB 


JlABUF 














157/RpF 


634/L> 


798/LW 


833/11* 


884/L.W 


931/LW 


1022/UW 


1047/lw 


l06*Aw 


1081/Lw 


1142t2/LW 


l236tg/LW 


3472/LW 


3478/STw 


3951/U 


*021 /LW 












JJACCN 














169/RpF 


881 AM 


956/LM 


1010/LM 


1P9S/LM 


1305/LM 


1323AM 


1871/LM 


836P/XW 


2363/XW 


2366/STW 


2367/STW 


2398/STW 


P399/STW 


P406/STW 


2407/STW 


3151/LB 


3172/LM 


3173/STM 


3177'STM 


3728/UM 


JSAMR 














151/RFF 


399/LW 


3531/LW 










JlASSlGN 














194/REF 


3503/tS 












JJCALCNT 














18S/RFF 


4 04A/l*i 












j:ccbuf 














181/REF 


9873I/LI 


3894/LT 










Dieppe 














197/RpF 


283S/AND 


2836/STW 


4080/lki 








JSFXLY 














187/RFF 


1364/LW 












JIFXTFNT 














16P/RFF 


7l*/0 


735/CW 


737/LB 


743/STB 






J2INTFR 














184/RpF 


*04P/AND 


4U7/AND 










JSJIT 














173/RFF 


45i»27/CW 


489#3/CW 


13Q1/LS 


1877/LC 


2198/LW 


2199/Aw 


2487f67/STS 


2487t7p/LVn 


3509/STS 


3515/LI* 


3518»3/STS 


3522«5/STS 


37Q0/Uk 


4053/ANiD 


403«;/AND 


<*G5S/AND 


4075/LW 


4Q77/LW 


4083^UW 


4O86AW 


JJLMN 
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186/RFF 


X31Q/LM 












ij!8PT 














is?/Rff 


657/STW 


1224/LT 










JSPTIMF 














183/REF 


*031/AW 


4G32/AW 


4037/a* 


4103/AW 


4104/AW 




JJRNST 














146/RpF 


4on/LB 


3498/LB 


3«H8«2/STB 


3S22t4/STB 






J:START 














189/R£F 














JlTELFLGS 














143/RFF 


39S/LW 


403/STS 


406/LS 


4Rl«3/CW 


465/LW 


469/STW 


49P/LW 


494/STW 


soo/sts 


B34/LS 


544/STS 


568/LS 


585/STS 


587#5/CW 


62*/LS 


©■JO' *»S 


639/AND 


640/STW 


649'STS 


653/AND 


660/AND 


661 /STW 


672/AnD 


679/AND 


713/STS 


729/LS 


787/LS 


807/lS 


8ln/LS 


818/LS 


826/LS 


847/STS 


855/CW 


857/bTS 


86P/LW 


87K/CW 


886/LS 


889/LS 


929/LS 


965/STS 


1007/LW 


101*/LS 


X020/LS 


1035/STS 


10^0/LS 


1064/LS 


X102/LW 


1137/5TS 


1144/LS 


X164/STS 


1176/STS 


1191/STS 


1209/LS 


1216/STS 


1225/LS 


1228/LS 


X253/STS 


1280/STS 


1286/STS 


131P/STS 


1336/LS 


X375t38/STS 


1511/LS 


8081/AND 


2085/STS 


2091/AND 


2098/AND 


2258»l8/CW 


2487tll/LW 


?827/L$ 


283n/STS 


2847/STW 


3095/STS 


3480/LS 


3483/ANO 


3484/STW 


349R/LW 


3<f9?/STW 


3539/CW 


35^1/AWM 








JSUNAME" 














170/RFF 


3160/18 












JiUTlME 














18?/RpF 


*0S9/LW 


4030/AW 


4036/LW 


♦101/LW 


4102/AW 




JBJCCARS 














1^6t1/RFF 


409/L8 


480/LB 


491/STB 


1127/LB 


1469/LB 


2263/LB 


2280/LB 


8313/LB 


3784/AWM 


3875/LB 








JBjFRS 














161 /RFF 


693/LI 












♦JBSLPP 














174/RpF 


1821 /LI 


185S/LT 










JBlPCW 














17*/RFF 


X806/LI 


1839/L! 










JBfPtfTS 














*06k/Rff 


*07n/Lt 
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JBiPRtV 

JBJTMTS 

JDNTEXT 
wlWjPC 



207/R^F 
4C6«/RfrF 
P447/8F 
P453/BF 



175/REF 

?429«EGU 

J88CAL 

P44?5/CAll 
J9BMSG 

P463/B 
J9B? 

P44P/BGE 
JRUNNG 

?449/B£ 

jsrufivp 

191/RPF 

JSTFP 

114/DEF 

728/1? 
3S38/L! 
JtfATTPlST 

245F/BE" 

»JWA!T?PN ! 

?4B1/Bp 

JXSCMAP 

193/RFF 

K 

33 6»^/9PEN 

336t38/CL&SE 
MLLMTEl 

20F/RFF 



158A/IB 
*067/LI 
2461 -EOU 
2467-EQU 

1787/LI 
2487/B 

274R»GEN 

246A/B 

844R«CAll 

2464-EQU 

39l3tlK/L! 

34P*EGU 
120A/LI 



1588/ST8 



3848^12/CMND 



2469*11 



4Q2/IT 
1223/L? 



*48n-EGU 

2471 »EOU 

39i3tl7/C6MPARE 
33*>»3n»SET 336t31-SFT 

390A/BAL 



159H1/ST8 



2482/B 



B33/LI 
1335/LI 



336«31/SET 



1.68Bti/STB 



567/LI 
lBlO/L! 



6P3/LI 
2080/LI 



659/11 
2487tlOAl 



336«34*SET 



336t35 w SET 



336t35/fcET 



Las 
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1052tl-Ll 


109R/B 






LDA 








336i26/GpN 


336tg7/ERR9R 


284««9/CMKD 


p8*8#10/CMND ?848.1S/CMN 


2ft48»3F/CMNQ 


284**«3a/CMND 


2848tS6/CMND 


P8^8f62/CMND 


LF 








31?»L ! 


323*GeN 


326. QfN 


329. LCI 331-LCI 


LINK 








?593»TpXTC 


283A/LD 






LIST 








U9oLl 


284»ti4/DCMND 






LlSTC&M 








1159/B 


1166/B 


il97^Cl 




LIST1 








1198/BF 


i223»Ll 






LIST? 








1227- LI 


123A/B 






LIST3 








1229/BMEZ 


1233»LW 






LIST4 








1226/BNEZ 


l236ti»BAL 






LISTS 








1231«1/B 


l2^5ti»BAL 






LLINES 








1857/LM 


»6lo-TEXT 






LMNCMD 








513/BG 


51A/BNE 


530*EGU 




LMNCMD10 








53P/BANZ 


53*»EGU 






LMS6 








1.943/LM 


8561 »TEXT 






L9BLT 








ioos/Banz 


1013«LI 






L9FTNS 








90^/B 


967/B 


1037-EGU 


1059/B 


L8FLG 








12R/0FF 


353-EGU 


1039/LI 


1215/LI 



336t?0*TEXT 336t26.w»E;N 



L9Q8FF 



1* 



1 arr>H 


693/CD 


1375#5n/LD 


2596-TFXTC 


P848»i5/CHND 


P848t28/CMND 


3533/LD 




LQGSlZg m11 


143A/STM 


1440/CALl 


1468/BUMP 


1523/11 


J5E9/BUMP 


1542/buMP 




?646/GEN 


S64A/GEN 


2646/3FK 


2646/GEN 


3142/BUMP 


3209/STM 


321Q/UU 




3220/BUMP 














18MF 


















996/B£ 


999/BE 


1001/Br 


1O03/BE 


1063-LI 






IBMF3 


1C6F/BNEZ 


X081-LW 












L6MG8 


1015/BFZ 


1019»LI 












UBBP 


















3337*BD« 


335S/BEZ 


3355/B 


3363/BE 


3370/B 


3381/B 


3383/0 




3385/BGEZ 


33«*/BE 












isePi 


3337/BD* 


3341 «EQU 












L98P5 


333S-PUU. 


337A/B 


3390/B 










L8SETUP 
















1 QP8-EG3U 


iosn/B 












LP 


S7?/CW 


lOon/O 


2545-TFXT 










LSTAT 


1893/CW 


284a#6*»CMND 












MjTEL 


















101/DipF 


2&6.1.£QU 


269/EGU 


1645/GEN 


1653/GEN 


2369/LW 


2642/bEN 




P652/GEN 


26S7/GEN 


2686/GFK 


2713/GEN 


2728/GEN 


2745/QEN 


3859/bEN 


M:TELSIZ 
















10?/DrF 


268»egu 


269/ECU 










MjUC 


















139/RrF 


245/EQU 


445/LM 


450/LS 


451/STW 


451tl3/STS 


451#20/LS 


451 tPi/STW 


4b7tVSTto 


457»6/STS 


457t8/STM 


687/LS 


688/STW 


1727/UI 




1938/lW 


1954/CB 


2130/CB 


2M7/GEN 


P624/GEN 


2678/QEN 


4257/(aEN 


MJXX 


















140/P^F 


<*22*/GEN 


4241/GFN 


4252/GEN 








MaPFATL 















3R64tl7/BCS 

MaFIT 

275ft«19»GrN 

MAPPER 

451»*/BAl 
HAXMSG 

MCPLO 

1961/LM 

MCTCPL 

fcentii/CAli 

MDCPL 

gQ93/CAll 

77*/CW 

MFANQT 

P191/IM 

MESSAGE 

?277«EGU 
MESSAGED 

P26C-EGU 

MFSSAGE1 

P27B/B 

MFSSAGEP 

?28^/BlE 
MFSSAGE3 

P300/BNE 
MFSSAGE4 

P261/BAL 

MFSSAGE5 

2316-LB 

mftasym 

P594.TFXTC 
MGS1 

801*BaL 
MMC 

PC30/GEN 



336*»8n/BCS 
356^flf/CALl 
356*«14»EGU 
38£5/BUMP 
205*»TEXT 
2iU9t3/CAll 
2757»GEN 

86n/CH 
2239-RES 

2g4*t7p/CMND 
284»t3«/CMN0 

•CBlf • tr I 

2287»LCI 

*3o*B 

227*/BAl 

23?P/BDR 

S81A/LD 

83P/B 
£0<*?»TEXT 



3R64t36*EQU 
3564tl9/CAtl 
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P758t3*GrN 



998/CW 



1074/Cfc 



1089/CW 



25*4*TEXT 



2312-EGU 



MM1 

PQ31/GFN 

MM? 

?03?/G£ N 
MM3 

?Q33/G£N 

MM4 

?034/G£N 

MMR 

p 03? ;/GpN 

MM6 

pc36/Gpn 

MM7 

2037/GeN 

MM8 

PG38/6FN 

M8DE 

MSDFCW 

1980/lW 

MSA.CP 

?C5P/0aTA 

msgebtt 

130/DPF 

MSQMCSS 

P288/IM 

MSRCP 

P05P/DATA 

MSTRM8DE 

89tl/DEF 
MUCRSFT 

236»?*EQU 

MUUDS 

38P7*PUlL 
MULJ6B 

?439/B£ 

M1RATFR 






2043»TEXT 
2044»TEXT 
#04R*TEXT 
204*«TEXT 
8047«TEXT 
204ft«TgXT 
£049*TEXT 
£03n«TEXT 
80a/STW 

X981/U 
205S.TEXT 

35Q»EQU 
S3ln*DATA 
205P/DATA 
3?8i4/CAli 
449/LI 
3844/LI 
2469/LI 



2029-DaTA 

817/LI 

2054-TFXT 
P7S8i24*G(TN 

451fl9/tl 
2478/LI 



103*/LI 



35A4t37/CAll 
686/LI 

P4S3»EGU 



M16 



M4 



4214. CAll 



9?2»1/AND 



2487t4F/ANP 

Name 

NA*E* 

95J/BAL 
NAMEVLP 

?575«-DaTA 
NBIT30 

9BBiti«E0U 
NFXTTTHE 

NFND 

69/DFF 
NFNDl 

329?. IB 
NFNDg 

3294/BE 
NLSAVP 

260»EQ^ 
N8 

100P/CW 
N8C6CM 

1983/BEV 

NftDEl 

66F/BF 

N6D8NT 

S87»*/Ba£ 

N6FG0 

4filt4/BAZ 
N6FDP 

673/BF* 
NGLINe 

P136/LI 



*243/DATA 



383/GEN 
3697»RFS 

&84A/AND 
U*6iA/B6 
54n/BAL 
3297/B 
9298-STB 
26Qti/FQU 
«54A»TFXT 
199A-SLS 
67n/BE 

587tiA»PULU 
451»2?.FQU 

678*11 



4244/DATA 
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326/GFN 



3496/AND 



571/BaL 



478/tW 



680/BFZ 



333/6EN 



336t3i/SET 



336t35/SET 



3274/UW 



1P50/BAL 



3P73/BAL 



3288»PUSH 



3097/STW 



*82*RES 



2144«»TfXT 



NleMSG 



2d 



i 


fc«lt«/BFZ 


45lti7»£GU 










NONF 


1630/H 


1731 /LI 


2611-TFXT 








N8PTAB 


1 186-DATA 


1233/LW 










NTJBST 
















7P/DFF 


1210/BEZ 


2082/BFZ 


P487.12/BAZ 


3081-LI 




NUM 


32P/D© 












8N 
















90/DEF 


780/CW 


121S/CW 


?R47*TEXT 






8NBIT 
















119/DfF 


347»EQU 


809/1 T 


841 /LI 


885/LI 


1013'LI 


&NFRR 
















70/DrF 


89S/BE 


976-EQL 


1018/BE 






9PCDS 














* 


336»*/8PEN 


33&«13»SFT 


336#26/GFN 


336.38/CLBSE 






BP^NBIT 














91/DEF 


8551 »E0U 










BPCNBKUP 














2365/CALl 


«240R/CALl 


2686-GFN 








6P£NME 
















9?/D£F 


830/LM 


938/Lh 


1073/LM 


1Q88/LM 


2635*GEN 


BPENi 


P390/BE 


2^04. LI 










8PFRR 
















1 <*75«»B 


86<u/GEN 


2659/DATA 


2660/DATA 






«PRSE 


814/LJ 


85n»BAL 










8PTAB 


1 is^pOaTA 


1230/LM 










SPUSR 


P657-.GFN 


317R/CAL1 


3252/LW 








©RATE 


4018/CAli 


*22K«RE5 










GUTCARR 













2826/LI 





P160/BAL 


2223/BAL 


2245/BAL 


OUTPUT 










11R*«L! 


2S4»»64/DCMND 




avER 










93/DEF 


78p/C^ 


1220/CW 


©verbtt 








120/DfF 


^9 w^ ^f ™ "» ™" ^"^ 


809/1 I 


&x 








1 


L90.1/REF 


284««4P/CMND 




PACC 










167/REF 


3270/LW 




paqc 










177S-EQU 


284*»iH/CMND 




parenc 










3349/Bp 


3384*A! 




parenb 










3347/8P 


338?*AI 




Parmsg 










P607-TFXT 


3561 /LI 




parse 










627/BNE 


750-PUSH 




parser 










54F/LI 


573/LI 


763»EGU 


passclup 








1406/B 


X417/B 


143Q/B 


password 








1390-EGU 


28<f«t69/CMND 




patch 










71/DpF 


2613*RES 




PCL 










P583-TFXTC 


28g?/LD 


?848t9/CMN 


r L J,, V A L- L* 








2822-lD 


284*t?R/CMND 




PGDR8P 










P382/CAU 


24on/CAUl 


2709-GFN 


phsfls 










116/OEF 


344*EGU 


85#/t! 



2P47/BAU 

2R^8«T£XT 
845/1 1 



2815/LI 
1463»rQU 



?254»RES 
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928/H 



2818/LI 



2826/LI 



?848f9/CMND p848.33/CMN ! D p848t3K/CMND 28<f8t36/CMND 2848f62AhND 



964/LI 



1163/LI 



U9Q/LI 



2* 



PTDGFlG 














364#1»EQU 


45l»p/LW 












PTDGMsG 














45lt1«ECU 














PLATEN 














1791-EOU 


284*»6«/CMND 












PLATEN1 














1793/BE 


l83ft*EGU 












platen? 














1840»LB 


18S9/BDR 












PLATEN3 














1 844*16 


X84ft/B!R 












PLATENS 














184*/BN£ 


l85n*Al 












PLIST 














164/REF 


803/STW 












PPAS 














16*/R£F 


3264/LW 












PRDCRM 














19F/REF 


219K/LW 












PRDPRM 














196/RpE 


2199/Ato 












PRINT 














P064.EGU 


284«t7l/CMND 












PRMPT90 














474/BE 


477»EQU 












PRMPTKC 














467/BaZ 


471 /BNE 


476/BNE 


484-EQL 








PROMPT 














73/DEF 


4Q7/BEZ 


417-EQU 


BQ9/BE 


1045/B 


1138/B 


1156/* 


1236/B 


H73/L! 


U29/BNE 


U33/B 


1784/B 


1734/B 


1770/fc* 


1789/B 


i$2*/B 


1862/B 


1878/BCS 


1932/B 


1999/B 


2068/b 


20*>9tl3/B 


208*/B 


2094/B 


2111/B 


2134/BCR 


2139/B 


2143/b 


P224/B 


S24*/B 


?pS8#27/8 


P3Q6/B 


2385/B 


g460'B 


2486/bLE. 


2487i70/B 


P487.83/B 


3490/B 


3829/BLE 








PR8MPTA 














4R3*CaLi 


4S7/BE 













PRSMPTF 

PReMPTO 
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PULL 



73tt/DFF 

420/BCR 

320.CNAME 

319-CNAME 
QUIT 

717/BaNZ 

RlUERR 

1.452/B 

RADPLUS 

P200/BGEZ 
RaDSQT 

2212/LM 
RATEERR 

481!UReS 
RDjUSFRS 

5 39?/BAl 
RDERT 

P£AD 

453/CaU 

pfadam 

lSS/REF 

RFADBKUP 

2368/CAli 
RFSET 

i7?yRrF 

RPTN 

93M/DEF 

PF£ 

325S/L! 
RflMgBLT 

87$. CW 
RftMgBLTl 



457ti.EQU 

4g7,4*EGU 



72**L1 
3193/B 
2204«RES 
8234.RES 
*22«/DATA 
151A/BAL 
268*/DATA 
8624»QEN 

633/BAL 
27i3«6EN 
284*»4A/CHND 
4§1#«»/LI 
325*/L! 

9l*/BlSiE 



?848tl8/CMND p84«»26/CMND ?>848t27/CMND 2848t39/CMND 
3202/B 3?20»BUMP 



4229/DATA 

3139-EGU 

2715/DATA 

764/BAL 

?848»55/CmKD 

451»30/UT 
32S2-B 

927/BnE 



U4?tl/8AL 



1217/BAL 



1236.1/BAL 



395Q/&AL 



1985/LI 



2B67-DATA 
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879/BANZ 


884»LW 


959/S 










RftMDEV 














861 /BNE 


914-EQU 












R9MDEV1 














921/BF 


925/BE 


928*LT 










R8MG8 














887/BF* 


890/BNEZ 


894-EOU 










R3MG81 














899.1-LT 


943/B 












RRATE 














4019/CaU 


^24n*RES 












RUN 














?S33»EGU 


?84**1*/CMND 


2848»16/CMND 










RUiUSR 














P64?-l3pN 


£648/EGU 


3208/lM 










RWUSRSZ 














146JB/BUMP 

s 

336.6/8PEN 


1529/BUMP 


1542/BUMP 


2648*FGU 


314S/BUMP 


3220'BUMP 




33 6 *14«SET 


336tlS/De 


336.21/D9 


336t28/D8 


336t38/CL9SE 




SSC8UP 














2U.1/RFP 


155*/LW 


1950tl/MTW 










s:mumc 














336i14/SFT 














save 














aop'REF 


2848t2n/CMND 












SBUFlVPA 














141/RFF 


25A/EQU 


270/EGU 


378t8/Ll 








S8UFPVPA 














14P/RFF 


243/EGU 












SCAN 














74/DEF 


1214/BAl 


1260/BaL 


1P73/BAL 


157P/BAL 


1581/8AL 


1705/ttAL 


179P/BAL 


I8I3/BAL 


1868/8 


1881/BAl 


1921/BAL 


2H6/BAL 


2434/tfAU 


33?8»LT 


37U/BAL 


3734/8AL 


380VBAI 








SCAN* 














7S/DFF 


333fi»Lt 












SCANCVT 














311/BNE 


5I9#1-EGU 













SCAN? 

3329/8 
SCN 

3671-tB 
SCNPTRSV 

264«EQU 
SCNVBSIZ 

S19tlO/LW 
SCNVERB 

519tli/EXU 
SC8R 

336t8*/6rN 
SCRAM 

21P/SREF 

SCRAMBLE 

1407/BAl 

scramblx 

1^94/B 
SFCAC 

?669»TF*T 

SFND 

2268«1**EGU 

sfndcmn 

22S*i21/B 

SFNDCNCL 

3824/CALl 

sfnomfs 

P297/LM 
SFT 

177/REF 

sftbuf 
sftbufe 

9F/DFF 

sftbufsz 

9f/DF? 
SFTFLF 
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3331 #LI 
3684/8L 
26K/EQU 
284*t9p«DATA 
28<f8t9R*Cw 
336tg7/ERR&R 
U9R/LI 
U3P/BAL 
1*9*/BEZ 
3171/LM 
2«4*t3n/DCMND 
225»#24»FQU 
3864«EGU 
g739»GFN 
28^*»23/CMND 
25A*EGU 
25*»EQU 
257»EQU 



766/STK 



1^97/BAL 
1488-EGU 
1499-PULL 



258/EQU 
259/EQU 
258/EQU 



789/LW 



139ml/STW 



139ot?/STW 



1393tl/LW 



1393»2/UW 



2* 



179/RFF 


343A/B 








sftnumb 










18o/Rff 


344*/B 








SFTSTP 










77/DfF 


343R»N8P 








sftup 










40?«L! 










SMJLNM 










17P/RFF 


9pn/CN 


995/CM 






SHFTBUF 










1.11P/BAL 


X120/BAL 


3757-EGU 






SMFTQBi 










3777/BLE 


378P«EQU 








SMFT1D 










3785-EGU 


3791 /BDP 








SHFT2D 










5788/BDR 


3790«BDR 








SHFT30 










3790/BD« 

CUAW 


3791 »BDR 








t509-ECU 


284*tl9/CMND 








SHPWXX 










152P/BCS 
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*38/Lt 
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3479/LI 


STZFR 
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STZETaBi 










1,888/1! 
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1309/BLE 
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1277/BNE 
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1241/BLE 
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1246/BNE 
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START7 
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126P/BNE 
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76*/BAl 
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SUAfeO 
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1876»EQU 
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211/PEF 
TPFLG 

364«?«EGU 

TSTAKSZ 

27o»EGU 
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unmapper 



34 



8013*GFN 
2021 -TEXT 

2o?p«<text 

S0P3«TEXT 
2024*TEXT 

e02K»TEXT 

202*»TEXT 

«2027fTEXT 

202*«TEXT 

25^8iH*TFXT 

?5*8m*TEXT 

25*8»p»TEXT 

*13*/CALl 

284»»3P/CMND 
361»EQU 
126Q/CD 
36P-EQU 



42S7-C5FK 

497/CW 

2&88-TFXT 
543/LW 



1136/LW 



5584/LW 



R63/CW 



U03/CW 



35 



451 ils/BAL 


3564«49*£GU 












UsrRSGT 














P17S/LM 


222R«RES 












UTsPRec 














:*»SfT 














vfct 














Bl9tl?/&F 


5*7ti»PULL 












VECTABl 














R19tlO-lVl 


5l*»19/B 












VFCTAB2 














519«H«EXU 


519«1S/B0R 












VECTB1C 














60*»EGU 


11S0/B 












VfCTSRS 














587»19/EXU 


284*«9*«EXU 












VFCT5R1 














336t??/USEcT 


28*8tP»CSECT 


?848t48/EGU 


P848.98/FXU 








VFCTSRp 














336t?**/USECT 
VFRB1 

104.1/QFF 


p848i4«CSECT 


2848t8i/ECU 


p848»99/EXU 








33*il*/USECT 


614/LW 


*16/|> 


953/LW 


954/LW 


1212/UW 


1704/lW 


*79*/U 


1812/LW 


1879/LW 


1918/LW 


2848«6»CSFCT 


2848f95Ak 


3291/LW 


3534/LW 


3601/CW 










VFRB3 














104t?/DFF 


336ti«/uSECT 


5i9tl7/9R 


5l9tl8/8R 


1P59/LD 


1272/LD 


1466/LM 


1490/CD 


186K/LD 


1866/LW 


Ifi9?tl/8R 


?848«50*CSECT 


2848.96/CD 


3290/UD 


3535.1/LW 


3535. P/LD 


3585/LD 


3715/LD 


3733/LD 






VFRSCFLL 














106/QFP" 


244»£GU 












toHFRE 














155?«EGU 


284«t8n/CMND 












WHERE1 














1S86-LB 














WMFRE? 














1591«CaLi 














WHERE3 














1599«CaUi 


X601/BNE 


160#/BNE 


16Q9/B 


1614/B 


16g5/B 





WHERE4 

wmi^rr 

1647/DATA 

WHERR1 

165F/DATA 

Wnm 

1675/LT 

1591/CAll 
WHR£AD 

1599/CAll 

i5a?»ci 

WIDTH 

1836/LM 
WRJUSERS 

1434-STW 

WRITE 

1686/CaLi 
199R/CAU1 
P22P/CA11 

3560/CAll 
WRITEAM 

159/RFF 
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P55C/EGU 
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V0C04 
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YP 
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949-EQU 
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TEXT CARRIAGE RETURN 

PLIST BUILD AREA IN SBuFl 

END 8F SETBUF 

SIZE 8F SETBUF 

TEMP IN SBUPj 

TEMP IN SBUFi 
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DEF IQUIT 

DEF UDEITFLG 

DEF UNKIMN 

DEF EXTNDBIT 
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Hoi 



1**36 

13* 
13ft 

137 
13ft 
1 39 

140 
141 
142 

143 
144 
14R 
14ft 

1* 
1B1 
15? 
157 
158 
159 
160 
161 
16» 
163 
164 
165 
166 
167 
168 
169 
170 
171 

17P 
173 

174 

175 

176 
177 
178 
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REF 
REF 
REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REFj 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF, 

REF, 

REF# 

REF 

REF 



MtUC 



MjXX 

SBUFlVPA 

SBUF2VPA 

JITELFLGS 

JJA8C 

ER6 

JJRNST 

JBICCARS 

J! AMR 

J! OPT 
JiABUF 

rfaDam 

WRITEAM 

ASSIGN 

JBJFRS 

dl EXTENT 

F I LENT 

PLIST 

MODE 

PPAS 

PACC 

NAME 

JJACCN 

JSUNAME 

SViLSlZ 

SHIINm 

JUIT 

JBSLPP 

JH5PC 

JBJPCW 

SET 

RESET 



JIT DCB 

JIT DCB 

SPECIAL BUFFER 1 

SPECIAL BUFFER 2 

JIT FLAGS UNIQUE TO TEL 

ABORT C8DE 

JIT DISPLACEMENT 8F ERROR SUBCODL 

JOB STATUS BITS 

SAVED ARS FROM MlUC COMMAND READ 

DISC ADDRESS OF A/M RECORD 

USER ACCESSIBLE ASSIGNMENTS 

VIRTUAL CORE ADD*FSS OF A/M RECeKD 

READS A/M RECORD 

WRITES A/M RECORD 

EDITS A/M RECORD 

FINAL RUN STATUS 

EXIT CONTROL ADDNfSS & FLAGS 

BUILDS SIMPLE FUf PLIRT 

SKELETON PLIST F»R A/M ENTRIES 

WORD 3 IN SKELETON PLIST 

PASSWORD VLP IN PLIST 

ACCOUNT VLP JN PLIST 

FILE NAME VLP IN PLIST 

ACCOUNT FIELD IN JIT 

USER LOGON NAME JN JIT 

SIZE OF LOGICAL N A M£ TaBLE <SYSG£N> 

LOGICAL NAME TABLE (SYSGEN) 

START OF JIT 

LINES PER PAGE 

TERMINAL PAGE COUNT 

TERMINAL PAGE WIDTH 

HANDLES SET COMMAND 

HANDLES RESET COMMAND 
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179 
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181 
182 
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184 

18«i 

186 
187 
188 
189 
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1* 

2* 

3* 

4* 
191 
192 
193 
194 
19S 
196 
197 
198 

1* 

199 
POO 
201 

1* 
20? 
203 
204 
20R 
206 
207 
208 
209 
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REF SETFLE 

REF SETNUMB 

REF vJlCCBUF 

RE^ JtUTIME 

REF UPTIME 

REF J: INTER 

REF JtCAlCNT 

REF UsLMN 

REF JJEXLY 

REF IL8GSZ 

REF JjSTART 

REF T$E^R 

REF OX 

REF CPXREAD 

REF CPXBRfTAK 

REF ECHO 

REF JSBUFiVP 

REF FPMC 

REF JXJCMaP 

REF j:assign 

REF PRDCRM 

REF PRDPRM 

REF JJCPP8 

REF CIC 

REF C6CMESS 

REF CP8 

REF CUP8 

REF CDP8 

REF SS 

REF SAVE 

REF GET 

REF BLQMTITL 

REF KILLMTEL 

REF FMTEICL 

REF*1 JBIPRIV 

REF C6CLN 

REF DCaCCfSS 



LANGUAGE 4& 

BUILDS SNORT FILE PLlST 
BUILDS DEVICE VOLUME PLlST 
C8NTR8L COMMAND t»UFFER 
USER ACCOUNTING C F LLS 
RR8CESS8R ACCOUNTING CELLS 
TERM, INTERACT, ACCTING CELL 
COUNT 8F CAL§ 
*TEMP# RUNNING PNGM NAME 
EXECUTE ONLY FLAW W8RD (JUSSIGN) 
SIZE 8F JUSER RECORD 
#TEMP» RUNNING PKQM START ADDR 
PRINTS TEltS ERROR MSGS 
COMMAND FILE HANPLER 
READS COMMANDS FHeM A FILE 
CPX CLEANUP FOR C&NTR8L-.Y 
TOGGLES ECHO BIT TN U80PT 
PAGE NUMBER OF S«UFl 

free page map constant 

physical page map 

limit exceeded bits 

perm rad space remaining 

perm disk space remaining 

file extension bits 

count of cards read 

administrative msg in monitor 

count 8f carqs punched 

count 8f user pagps out 

count 8f diagn0sttc pages out 

jit dlsplt to pseudo sense switches 

save command routfne 

GET COMMAND ROUTINE 
CREATES MITEL IN sBUFi 
RELEASES MITEL IN SBUF1 
FORCES MJTEL CLOSED 
USER'S PRIVILEGE 
LINE NUMBER IN MJUC DCB 
* OF DC I/O OPERATIONS 
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1*136 

?in 

211 

1* 

21* 
217 
218 
1* 

p# 
3* 
4* 
R* 
** 
7# 

8* 

9* 

10* 

11* 
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TEL. TERMINAL EXECUTIVE 
REF DPACCESS 
REF TPACCESS 

ref siceup 

REF T$ERRTXT 

REF T*WRTFRR 

SREF SCRAM 

SREF TTP 

* REFS FR8M LITERALS * 

REF XA 
REF XFFFD 

* REFS FR8M AMROEF * 

REF AMJ8RG 
REF AMISTD8P 



LANGUAGE 
* 8F DP 1/8 8PERATI8NS 
« 8F TAPE 8PERATJ8NS 
C8UPLING FEATURE C8NTR8L CELL* 
READS FRRMSG INT& TELSTACK 
WRITES ERRMSg g CLEARS TELSTACK 
PASSW8RD SCRAMBLER 
IF DEFINED, TP IS GeNieD 



4& 



LITERAL 
LITERAL 



C6NSTANT 
C8NSTANT 



P8INTER T8 AVAILABLE 
INTER-JSa.STEP I^AGE 



A/M SPACE 
8F J58PT 
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219 

220 00000000 

221 COOOOCOl 

222 C00QCC02 

223 C0000C0-* 

224 OOOQOCO* 
22R COOOOCOl 
326 C0000C06 
227 OOOOOCO? 
22ft 0OO00C0 8 

229 OOOQOOO* 

230 O0OO0C0 A 

231 0000000° 
23? OOOOOCO^ 

233 OOOOOCO^ 

234 OOOOOCOt 

235 OOOOOCO* 
236 



1# 0? 00000 

3* 0000001^ 

243 EXT 

244 0000002» 

245 OOOQOOO* 

246 000Q008L 

247 
24ft 

249 
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RO 


ECU 









Ri 


FGU 


1 






R2 


FGU 


2 






R3 


ECU 


3 






R4 


FGU 


4 






R5 


FGU 


5 






R6 


FGU 


6 






R7 


ECU 


7 






SRl 


ECU 


8 






SR2 


ECU 


9 






SR3 


FGU 


10 






SR4 


FGU 


11 






01 


FGU 


12 






02 


FGU 


13 






03 


FGU 


14 






04 


FGU 
SPACE 


IS 
3 






TEL 


CSECT 


1 






MUCRSET 


EGU 


*X!28!31t 




pXtFFFD 


CPXUSR 


FGU 


YOS 




C8MMAND 


AMBUF 


EGU 


SBUFgVPA 




WINDSW 


VERSCELL 


egu 


X!2B» 




M8NIT6R 


ARS 


FQU 


MtUC+4 






MAXMSG 


EGU 


140 




MAXIMUM 


# N6T£ 


A66VF 


SYMBOL MUST 1 


^lATCH 


DEHNITieN 


« 


6R TERRIFIC MAYHEM 


WILL 


RFSULT ( B 


* 


T8 BE 


CHANGED ANYWAY), 





4? 



7ECFt# MASK 

FILE USER 
PAOg T6 REaD 

type Cell 



T6 RS£T MjUC 
A/M REC8RD 



&RRMSG R&C8RD LENGTH 
IN ©THeR TEL MftDULgS 
IT IT SH8ULD NEVE« NEED 
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251 
252 

253 

254 

255 
256 

257 



4* 



258 

259 

260 

1* 

p# 

262 
263 
264 
265 
266 

1# 
268 
269 

270 
271 
272 



EXT 

OOOOOOF"^ 

OGOOOqF* 

oooooiou 

CQOQOIO* 

00000103 
00000104 

COOQ010& 
00000106 
0000011^ 
00000118 
0000012P 
0000013^ 

0000008* 
00000150 
0OOO0CA4 



TEL-TERMINAL EXECUTIVE LANGUAGE 
PAGE 

* THE FQ 

* AND SH6UL0 B 
# 
SETBUF FQU 

SETBUFSZ EOU 

SETBUFE fQU 
TELSTACK 

MSAVE 



LL6WINQ DEFINES THE LAY8UT 8F TEL'S DATA PAGE 
F CHANGED ^ITH CaRF 



fGU 
ECU 

FGU 

fgu 

ECU 
FQU 



FEXTIM6 
SZCELL 
EXPNDSZ 
TELBUF 
SCNPTRSV FGU 
FL9PBUF fQU 
OCBTABg FQU 
MjTEL EQU 
MITELSIZ EQU 
STACKO FGU 
TSTAKSZ FGU 



SBUF1VPA 
255 

SFTBUF*$ET8UFSZ 
SETBUFE+1 

TFLSTACK*2 

NLSAVe+1 
FeXTIMG+1 

SZCELL*1 

EXPN0SZ*1 

TELBUF*20 

SCNPTRSV<M 

FLSPBUF-M* 

DCBTAB2+6 

40 

MjTEL+MiTFLSlZ 



WIND9W PAGE* SP* BUFFER 1 



SPD MUST BE SN DWD B8UNDARY 
TEMP F8R 1ST W8RP IN TEUUF 
IMAGE 6F FILE EXT BITS AT A/M READ 



PLIST BUILD AREA 



MINIMUM DCB SIZE 
TELSTACK STARTS HprRE 



SBUFlVPA+fili»STACKo 



SIZE 8F TEISTACK 



SPACE 3 



273 
274 



EXT 
00000000 



LeasizE fcu 

F8RSEC FGU 



JL8QSZ 




SET T8 F8R ELAP TIME IN MIN 
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3CK 
306 

307 

308 
309 
310 
311 

31? 

313 
314 
31R 
316 
317 
$ 1 8 
319 
320 
321 
32? 
323 
384 
32R 
326 
327 

•3 <C W 

329 

330 
331 

33? 
333 
334 

335 
336 
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PAGE 



4? 



coooocou 



LIST 
LIST 



• PR8C T8 CHANGP STAC* P8INTER THE Am8uNT SPECIFIED «Y THE 1ST ARGUMENT 

* USING THE REGISTER SPECIFIED BY THE 2ND ARGUMENT. 
* 

BUMP CNAME 
PRBC 

LF Ll#AF<?) AF(1) 

MSP#AF(2) TELSTACK 

PEND 
# 

# PUSH 8R PULL K K8RDS SPECIFIED BY 1ST ARGUMENT INTO REGS STARTJNQ 

* AT 2ND ARGUMENT, 
* 

PUSH CNAME Xt9'#X»B* 

PULL CNAME XfS'jXtAt 

PRBC 

D8 NUM(AF)«1 

LF GEN, 1,7*4,31 17 CjNAM£< 1 ) M AF ( 1 ),0, TELSTACK 

ELSE 

D6 AFC1W1 
LF GEN#i,7/44 3#17 0/ NAME ( i } ,AF { 2)*Q* TELSTACK 

ELSE 

D© AF(1)»16 
LF LCI 

FLSE 
LF LCI AF(1> 

FIN 

GEN, j ,7#4#3#17 C*NAMe(2),AF<2)'0*TELSTACK 

FIN 

FIN 

PEND 
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1* 
2* 
3* 

i* 

*?* 
** 

7» 

8* 

9* 
10* 
11* 
1?* 
13* 
14* 
15* 
16* 
17* 
18* 
19* 
20* 
21* 
2?* 
23* 
24* 
25* 
26* 
27* 
28* 
29* 
30* 
31* 
3?* 
33* 
34* 
35* 
36* 
37* 
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ooooooou 
oooooqqu 
ooooooou 
ooooooou 

OQOOOCOl 



* 

* THESE 

* IDENT 
* 

DBIT1 
DBIT2 

CMND 

CCMND 

8PCDS 

S 
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PAGE 

PR8CS A«E USED T9 GeN^RaTF THE VARIOUS TABLES USED TB 
IFY AND EXECUTE VALID TEL COMMANDS 
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LF(1) 



LF<2> 



I 
K 
OBITKK) 

J 
K 
DBIT2(K) 



©PEN 

SET 

SET 

SET 

CNAMF 

CNAME 

PR6C 

SET 

SET 

D8 

USECT 

ELSE 

USECT 

FIN 

TEXT 

D6 

USECT 

ELSE 

USECT 

FIN 

GENji 

ERR6R 

D8 

SET 

SET 

SET 

FLSE 

SET 

SET 

SET 

FIN 

PEND 



I,J*K,S#8PCDS 









1 

X!680»jXM26» 
SINUMCCAF(l) ) 

$c§4 
VERBl 

VERB2 

AF(1) 

Sc«4 
VECT9R1 

VFCT8R2 

3,20 9PCDS(SCeR(AF(g)#BjLD« l ))#AF(3) 
j7jSC6R(AF(2) j B # LD6>«0 »UNKN£wN SPCD IN 

S<f4 

1*1 

1*( I**»5) 

OBITKK) INAME«»CCIKX'lF' Wl) 

J+i 

1+(J##«5> 

DBITgfK) | NAME** ( (J&XtiFf )•!) 



AF 2' 
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1*836 
338 
339 

34n 
341 
34? 
343 
344 
343 

346 

347 

34ft 
349 

350 
351 
35? 
353 
354 
355 

S *3fc 

357 

35ft 
359 
1* 

361 
36? 

363 

364 
1# 

?# 
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O0O000C1 
00000002 
00000C04 

ooooocoa 
ooooociu 

0000002U 
00O00C4U 
00000C8U 

ocoooiou 

0000030U 
0000Q4QU 
0000080U 

ooooicou 

00002COU 

00004000 
OOOO8C0U 

oooiocou 

0002000U 

OOOOQCl^ 
00000014 

OOOQOOlS 

ooooocio 

00400000 
OQOQOOl* 

ooooociu 



TEL- 



TFRMINAL EXFCUTIVF LANGUAGF 
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J6TEP 
BRKBIT 

PHSFIQ 
SINOREL 

SISET 

8N8IT 

8VCR&IT 

DELTABIT 

FDPBIT 

*R8MFLG 

C8MFLQ 

L8FLG 

D8NTBJT 
CC8UFBIT 

STRTBIT 
FIPR8C 

MSGEBIT 

IQUIT 
UDELTFLG 

UNKLMN 
EXTNDBIT 

PlQGFLG 
TPFLG 



FGU 
FGU 
fQU 
FGU 

FGU 

FGU 

FGU 
FGU 
FGU 

FQU 

FGU 

FGU 

FGU 
FGU 
FGU 
FGU 
FGU 
FGU 
FGU 
FGU 
FQU 
FGU 
FGU 
FGU 
FGU 



no» 

♦20' 

♦ 40' 

♦ 80' 

tlOOt 
'200' 
t400» 

♦ 800' 
♦1000' 
♦2000' 

♦4000' 
'8000' 
♦10000' 

♦ 2000C 

Y0004 

Y0008 
YOOl 

Y0Q2 

X'400000' 
Y008 

Yl 



AT J8B STEP 

BREAK RECIEV£D 

OiBUILO Q6 DCBj 1«BUI10 L© DCB 

D8 N8T RELEASE Si ENTRIES FR8M a/M 

SI HAS BEEN ASSIGNED 

leivii has Been specified 

'8VER' HAS BEEN SPECIFIED 
♦UNDER DELTA' HAS B EEN SPECIFIED 
♦UNDER FDPt HAS &FEN SPECIFIED 
DEFAULT F8R $ R©M IN PRBGRgSS 

UNIQUE ♦C8MMENT' CMD INDICATOR 
UNIQUE aiSTt CMP INDICAT8R 

»D8NT' IN EFFECT 

REPRBCESS CURRENT BuFFfR IMAGE 

LMN WAS DETECTED IN START FR©CES$ 

N.A.P HAS BEEN PN8C DURING PARSE 

UNUSED 

END ©F VALID MSG FLAG 

IMPLIED QUIT FLAG 

UNDER DELTA IMPLIED F0R NEXT COMMAND 

UNRECOGNIZED L&AP M0DULE 

USER REQUESTED EXTENDED MEM8RY M<?DE 

PR8CESSING SNGLE USR ABRT (INITRLVR 

DEFERRED MgG PENDING 

REQUEST L8Q6FF T© TP 
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3* 
4* 

6* 

7* 

8* 

9* 
10* 
11* 
1?* 
13* 
14* 
1R* 
lft* 
17* 
18* 
19* 
20* 
21* 
22* 
23* 
24* 
25* 
2ft* 
27* 
28* 
29* 
30* 
31* 
32* 
33* 
34* 
35* 
3ft* 
37* 
38* 
39* 



TEL 
PAGE 

* --• 

* JSTELFLGS ! 

* (1ST HW> 

# 

# 
# 

« 
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Cl2 3|45ft7|89 



II 
51 



* 
# 
* 

# 
# 

* 
# 
* 

# 
# 
# 
# 

# JiTELFLGS 

* (2ND HM) 
# 

# 

* 

* 
# 

# 
* 
* 
# 
# 



III III >UhUSfcD 

III II ^MSQEBIT.CNO »F VALID M§6 
I I I I >I0UIT»!MPLIE0 QUIT FLAG 
I I I >UDELTFLG.U DELTA eN NXT CMD 
I I >UNKLMN«UNRECa«N!ZEO L^N CALLED 
I >EXTNDBIT»EXTENDED MEH8RY M8DE 
> PR8CESSING SINGUjt USER AB8RT 
I >PIDGFLG*DEFERRE0 MESG T8 BE PRINTED 
>UNUSED 
>UNUSED 
>UNUSED 
>UNUSED 
>TPFLG»USER REQUESTED TP SWITCH 
>UNUSED 
>UNUSED 
>UNUSFD 



1 1 


1 


1 


11 


2 


2 


2 


21 


2 


2 


2 


21 


2 


2 


3 


31 


1 ft 


7 


8 


91 





1 


? 


31 


4 


8 


ft 


71 


8 


9 





11 



I I I 



I I I 



I >JSTEP«AT JOB STEP 
>8R*BlT*CeNTR8L Y RECvD 
I I | I >PHSFLG*BLD G8(o>>BLD L8(i) 
I I I >SlN8REUD8Ni T RLs Si FRM a/M 

i i »siset*mjsi has been assigned 
i >8nbit» »8n» has been specified 
>8verbit» »8ver» has been specified 
>deltabit«ass8ciate delta 
>fdpbit*ass8ciate fop debugger 

>*R8MFLG-BUILD * DEFAULT F eR h;G8 
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40* 
41* 

4?* 
43* 

45* 
46* 
47* 

4ft* 
49* 

50* 
51* 

8P* 
53* 
54# 
55* 
56* 
57* 

58* 
59* 

60* 
61* 
6?* 
63* 
64* 

65* 
66* 

67* 

68* 
69* 
70* 
71* 
7?« 
73* 



« 
* 

# 

# 

# 
# 
# 
* 
# 

* JJ&PT 
*(1ST HW) 

* 
# 

# 

* JJOPT 

*C2ND HW) 

# 
« 
# 
# 
# 
# 
* 
* 
* 

« 



TEL.TERMINAL EXECUTIVE LANGUAGE 

! I I I >C»MFLG»PROCESSING 'COMMENT 1 COMMAND 
I I I >L8FLG-»PR0CESSING 'LIST' COMMAND 
I I »DONTBlT«USER SAID D8NT SOMETHING 
I >CC8UFBIT«REPR8CeSS CURRENT CMO IN CCBUF 
>STRTBIT»LMN WAS DETECTED ON START COMMAND 
"lPRBC*N,AtP HAS BEEN PROCESSED DURING PARSE 
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####♦«######*♦*#*#**** 
* BIT USAGE OF JS8PT * 



I 

I 1 ? 


I 
3I4 5 6 


1 
7|8 9 


1 




1 11 
1 12 


1 
3 


1 

4 


1 1 
51 


1 

>ECMO 


COMMAND 


FILE 










>D 


1111 
I 6 7 * 


ll? 2 2 

9I0 1 2 


212 2 

314 5 


2 
6 


212 
718 


2 
9 


3 




31 
11 



(FORTRAN COMPILE) 



I I 



I I > 

I >OUTPUT 

>C6MMENT , 



I I I >LIST • M|L& ASSIGNMENT 



MtSI ASSIGNMENT 



» MIG8 ASSIGNMENT 
MjDO ASSIGNMENT 
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36S 

367 
1* 

369 

1 * 
37P 

1« 

P* 
376 
377 

378 

1* OP OOOOO 6*400A37 
?* OP 00001 68000005 

3* 
4# 

B* 
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5& 



0? 00002 
OP 00003 
OP 00004 



0*5007F8 
O^OOOOOO X 
0U6OO1OO A 



6* 
7* 
8* 
9# 

385 

386 

387 

388 

389 

390 

391 

39P 

393 

394 

395 

396 

397 

398 

399 

400 



Og 
0? 00005 
OP 00006 
OP 000C7 
OP 00008 
0? 000C9 



OQOOS 

28900000 N 
0*8007EC 
2HC0O15B N 
32D00710 
l^CootOO N 



0? QOOOA 6*000000 X 

ooooocoi 

OP 0O00B 32D00000 X 
0? OOOOC 6^300924 



0? OOOOO 
0? OOOOE 
0? OOOOF 
OP 00010 
C? 00011 
0? 00012 



32000000 
21DoOOOP 
6*400823 
72700000 
6*300913 
727QOO00 



PAGE 



#S# 

♦s* 
#s* 
*$♦ 
#s* 
*s# 
#s* 
#s* 



SCREECH C8DEJ 60-00 

REP8RTFD 8Y| TEL 

MESSAGE TEL ISSUED SINGLE USER AB6RT 8N yau 

TYPg» SINGLE USER AB8RT 

REGlSTFRSt R15 HAS SUBCBDEt 

REMARKRJ USER ALREADY HAS SBUFl AT ENTRY T8 TELt 

THIS SCREECH INDICATES A PR&BLEM IN MEM8RY MGMT ©F 

PHYSICAL P86L PAGESt 



*##*•**«««#«**»•«**«###*#««*#«##«##*#*«««•«*«*«#*«#** ####«# *#*########*# 



8AL#R4 

B 



CHKBUFl 
GETSBl 



D8 WE HAVE S&UFl ALREADY 
N8j EVERYTHINGtS 8.K, 



* WE'VE GOT SBUF1» B8Yj ARE WE IN TR8UBLEtit 



GETSBl 



CALIjS 
SUA 



EQU 

LI/SRP 

CALIjS 

LliDl 

LWjDP 

STDjDi 



MSTRM8DE 
Xt60»*Q 



SBUF1VPA 

GPFPT 

STACKo 

STKINIT 

TELSTACK 



GET MSTRM8DE 



BAL#R0 BLDMTEL 



D6 

LWjD? 

BEZ 

FIN 

LW,D2 

CliDP 

BANZ 

L6,R7 

BNEZ 

LB/R7 



DBUGiO 
J I AMR 
ERRA8N1 

JjTELFLGS 

BRKBIT 

BREAKER 

UIABC 

SYSERR 

JtRNST 



TEL'S C8NTEXT PA«E 

GET IT (S ASSUME WE G8T IT) 

START »F STACK 

INITIAL STACK SUr 

INITt STACK PTR PBLWD 

INITIALIZE MJTEt ■DCB? 

♦*#N8RMAL M8QE#** 

CHK IF A/M REC8RP EXISTS 

IF N8Tj L©G USER 8FF 



BREAK SET 

TEST STATUS 8F LAST MAJ8R C8MMANU 

TEST F8R RUN STATUS FLAGS SET 



HOI 
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TEL. 


■TERMINAL EX 


401 


OP 


00013 


6*3oo<5l3 






Bhll 


SYSERR 


40P 


OP 


00014 


22700001 


A 


SETUP 


LUR7 


JSTEP 


403 


OP 


00015 


47700000 


X 




STS#R7 


JJTELFLGS 


404 


0? 


00016 






BUFINT 


RES 





4GB 


0? 


00016 


227QP000 


A 




Ll#R7 


CCBUFBIT 


40* 


0? 


00017 


4*700000 


X 




LS#R7 


JlTELFlGS 


407 


0? 


00018 


6*300010 






BE*- 


PR8MPT 


408 


0? 


00019 


6 A 00OAPX 






BAL#Ro 


CCBUFTEL 


409 


0? 


0001A 


78100000 


X 




LB/Rt 


JBJCCARS 


410 


0? 


0001B 


28F00000 


A 




LI,D4 





411 


OP 


OOOlC 


6*000071 






B 


ITSeK 



5$ 



SET JB8 STEP FLAG 
CHECK F6R VALID INF© 
IS CURRENT BUFFEK VALID 

N6 

GET SAVED ARS 

CLEAR IMPLIED DELTA * SUIT FLAGS 



Hoi 



1883 

41? 

413 

414 

MR 

417 

418 

419 

420 
1# 
P# 

3* 
4» 
R* 
fe# 

7* 

g# 

10* 

11* 
12# 

13* 
14# 
427 

i* 

2* 

3* 
4* 

444 

44R 

446 

449 

450 

451 
1* 
2* 
3* 
4* 
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TEL- TERMINAL EXFCUTTVF LANGUAGE 



57 



PAGE 



02 
0? OOOlD 
02 0001E 
0? 0001? 



02 00020 
02 00021 
02 00022 
02 00023 
02 00024 

02 00025 
02 00026 
02 00027 
0? 00028 
02 00029 

02 
02 0002A 
02 00028 
02 0002C 
02 0002D 
02 0002E 
02 0002F 

02 
02 00030 
02 00031 
02 00032 



occiu 

0*800517 
7U20O00A A 
6*40O02A 



7&Aoft005 A 
22400040 A 
Q48007EF 
22C3oiroa a 
6AB00O00 X 

729QOC05 A 
6 a Bqo961 

2^300005 A 

BSD60001 A 

6 A 000000 X 
0002A 

02200070 A 
2A80OOOO X 
tt 800100 N 
239D7FCF A 

4A9QO000 * 
35900000 X 
00C3U 

3*700018 N 
31700000 X 
6^400043 



* TEL MUST ISSUr A PR8MPt< J BY GIVING C8C A SINGLE CHARADE* WRITEt 



PR8MPT 



FGU 

CAL1j8 
LC 
BCR#4 



C6CSTATC 

SR3 

PR6MPT0 



HAVE WE REJECTED A C8UPL& ATTEMPT 
WE HAVE* If THE 4o BIT 8F M8PE4 
IS SET AND TIE NE BUR LINE #t 



#«***»*«*«*«#»«*#«*««*****«««#**««»«*«*«**##*******«*«**«*«#***#**«#«*«* 



*E* FRR8RJ 
#E* DESCRTPTI 

*E* 
#E# 

*E* 

♦E* 

STBjSR3 

LI*R4 

CALl,8 

LIiD1 
BAL#SR4 

LB#SRp 
BAL#SR4 
LI/R3 
STW#D£ 

BALiRo 

PR6MPT0 FQU 
LCI 

LM/SRl 
PSM#SR1 
LI*SR2 
LS#SR? 
STWjSRP 

PIDGMSG FQU 

LW,R7 
CW # R7 
BAZ 



GRP 3* C£*00 * 

6NJ S8METIME! SINCE WE LAST PRBMPTED* SBME8NE ♦ 
UNSUCCESSFULLY TRIED TB C8UPLE T8 TmIS USE* (BIT 1 * 
8F M8DE4 p 1). THE M8DE4 ©IT IS RESET AND WE LET THE* 
USER KN8W WHICH LINE NUMBER IT WAS S8 HE CAN DEClD* * 
ING. * 

#####*#♦#♦#♦###*♦######*###♦*#######*#♦# 

SAVE LINE NUMBER IN R5 

RESET M8DE4# BIT 1 

D8 MJCT T8 RESET M8DE4 

ERRMSG KEY 

READ MESSAGE TEXT 

RETRIEVE LINE NUMBER 

MAKE THAT CHARACTFRS 

INSERT LINE NUMBER 

IN MESSAGE TEXT 

AND WRITE MSGi 



TB ALL8W C8UPL 

R5 

Xi40» 

MCTCPL 

X»030E00» 

T*ERRTXT 

R5 

HEX2EBC 
5 
#RliR3 

TsWRTERR 

* 

7 

MjUC 

TELSTACK 

MUCRSFT 

MJUC 

m:uc 
* 

P1DGFL6 

JiTELFLGS 

NBEGG 



SAVE MIUC DATA 

PUSH 1ST 7 W8RDS »F MjuC 
RSET M8D#DRC & V?C BITS 
BEF8RE READING RESP8NSE 



IS THERE A 
DEFERRED MSG 
N8j G8 8N#tti 



HOl 
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!5* 


0? 


00033 


6* 


02 


00034 


7* 


0? 


00035 


8* 


02 


00036 


9* 


c? 


00037 


in* 


02 


00038 


11* 


02 


00039 


l?* 


02 


0003A 


13* 


02 


0003B 


14* 


02 


0003C 


155* 


02 


OOO3D 


1ft* 


02 


0003E 


17* 




02 


18* 


02 


0003F 


19* 


02 


00040 


20* 


02 


00041 


21* 


02 


00042 


2?* 




02 


23* 






24* 






25* 






26* 


02 


00043 


27* 


02 


00044 


28* 


02 


00045 


C 7? 




02 


30* 


02 


C0046 


31* 


02 


00047 


3?* 


02 


00048 


#53 


02 


00049 


454 


02 


0004A 


455 


02 


00048 


456 


02 


0004C 


4B7 


02 


0004D 


1* 




02 


P* 


02 


0004E 




02 


0004F 


3* 


02 


00050 



m '75 

22Aooooo N 
6A80094F 
F3000Q09 A 
6«30OO3F 

2*100723 
23200001 A 
04100790 
22100010 A 

*?l0OG0O X 
3^100009 A 
FS20O009 A 
0*100790 
0003* 

6AB0095C 
229D7FCF A 

4A900000 X 
3^900000 X 
000451 



3280001C N 

31BqogOO * 
6*400000 X 
00046 

22100723 
22200002 A 
0*100790 
0*100794 
32100004 N 
2blooo6F A 
21100000 A 
68300049 
00C4t 

0220OO7O A 
0A8OO10O N 
3^800000 X 



N8MSG 



TEfTERMINAL EXFCUTIVF 

LI#9R3 CBCMESS 

8AL4SR1 MAPPER 

MTBjO *8R2 

BEZ N8MSQ 

LI#Ri RETN 

LI#R2 1 

CALIjI WRITE 

Ll*R1 X»10* 

STS#Rl MjUC 

LW#Ri SR2 

LBiRp #SR2 

CAL1#1 WRITE 

FQU i 

BAL#SRii UNMAPPER 

Ll#SRp MUCRSPT 

LSiSR? MtUC 

STWiSRp M:UC 

EGU * 



LANGUAGE 
YES* MAP 8NT8 
M8NIT8R 

CHECK C8UNT QF DEFERRED "SQ 
THERE IS N8 MSG * IT»S QaNE.tt 

TYPE CARRIAGE 
RETURN BEF8RE 

MESSAGE. 
T8 SET 

UBTD T8 It 

BUFFER ADDRESS 

MSG BYTE C8UNT 

WRITE ThE DEFERRED mSG 

FIX USER»S MAP 
CLEAN MIUC 

BEF8RE WRITE 



5* 



N8EGG 

* 

# IF THE USER TS IN CPX M8oE* G8 READ FR8M THE C&MMAnd FIlE 



LW#SR4 cpxusr 

CW,9R4 Jj JIT 

BANZ CPXREAD 

CPXEND EQU * 

LI'Rl RFTN 

LI#«2 2 

CALl#l WRITE 

PR8MPTA CAL1#1 READ 

LW#Ri ARS 

SLS#Ri «i7 

CI#Rl 

BE PR9MPTA 

PR8MPTF FQU * 

PULL 7jSR1 

STW#SR1 MjUC 



ARE WE IN 

C8MMAND FILE M8Dt 

YES, GET NEXT C6MMAND FRSM FILE. 



WRITE PR8MPT (BANQj 

READ RESPONSE INTft TELBUF 

TEST TERMINATING CHARACTER F8R AN 

ESCAPE* 

REISSUE PEAD IF ARSiQ 



RESTORE MJUC DATA 
REST8RE W8RD ZERO 



HOI 
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TEL»' 


TFRMINAL EXFCUTTVF 


4# 


0? 


00051 


328ooo09 


A 


LW#$R1 


SR2 


R* 


0? 


0005? 


229FFFG0 


A 


LI.#$R? 


«x?ioo» 


6* 


c? 


00053 


4?80OC01 


N 


STSjSRI 


m:uc*i 


7* 


0? 


00054 


0220OC5O 


A 


LCI 


5 


8* 


0? 


00055 


2»A00003 


N 


STMjSR3 


M|UC*3 


464 










# 




465 


c? 


00056 


32FQOQ00 


X 


LW#D4 


JJTEIFLGS 


1* 


0? 


00057 


31F0O013 


N 


CW,D4 


IGUIT 


467 


0? 


00058 


6*400067 




BA2 


PRMPT«5Q 


1# 


0? 


00059 


3«Fonol3 


N 


SW/D4 


IQUIT 


469 


0? 


0005A 


3&F0O00O 


X 


STW,D4 


JlTELFLQS 


470 


0? 


0005B 


2X100001 


A 


CI-jRl 


1 


471 


0? 


0005C 


6^300067 




BNE 


PRMPT50 


47? 


c? 


0005D 


72C00106 


N 


LBjDi 


TELBUF 


473 


c? 


0005E 


2lConooD 


A 


CI#Oi 


XtoOi 


474 


c? 


C005F 


6**30O062 




BE 


PRMPT?0 


475 


0? 


00060 


21C0O015 


A 


CI#D1 


X»15' 


476 


0? 


00061 


65*300067 




BNE 


PRMPTSO 


477 




02 


00062 




PRMPT20 FGU 


• 


478 


0? 


0006? 


32200102 


N 


LW#R? 


NLSAVE 


479 


0? 


00063 


35200106 


N 


STW*R? 


TEL8UF 


48n 


c? 


00064 


72100000 


X 


L8#Ri 


JBJCCARS 


1# 


0? 


00065 


32F0O013 


N 


LW,D4 


IQUIT 


48? 


0? 


00066 


6*000078 




B 


ITS0K10 


483 










# 




484 




0? 


00067 




PRMPT5G FCU 


* 


48K 


0? 


00067 


32200001 


A 


LW#R2 


Rl 


486 


c? 


00068 


202FFFFF 


A 


Al#R? 


• 1 


487 


0? 


00069 


72C40106 


N 


LBiDl 


TELBUFjR2 


488 


G'e> 


0006A 


21C0001S 


A 


CIjDI 


Xtl5» 


489 


0? 


0006B 


6*300060 




BNE 


$+2 


1# 


c? 


0006C 


32F0O013 


N 


LW#D4 


IGUIT 


?♦ 


0? 


0006D 


32C0O01C 


N 


LWjDl 


CPXUSR 


3 # 


0? 


0006E 


3IC00000 


X 


CW,Dl 


JJ JIT 


4# 


c? 


0006F 


6*400071 




banz 


$*2 


491. 


OP 


00070 


7&10OC00 


X 


STB#Pl 


JBJCCARS 


49? 


0? 


00071 


32Concoo 


X 


ITS8K LW,Di 


JlTELFLQS 



LANGUAGE 59 

RESTORE WORD ONE* 
EXCEPT FOR BYTE 3 



REST OF SAVED MjUC DATA 

CHECK IF IMPLIED QUIT 

OCCURRED ON PREVIOUS C©MM A ND 

B IF NO 

RESET IMPLIED QUIT FLAG 

AND IN CURRENT FLAGS 

1 CHAR RESPONSE Tft QUIT 

B IF NO 

GET FIRST CHARACTER 

WAS IT A CARRIAGE RETURN 

B TO DO IMPLIED UUIT 

WAS IT LINE FEED 

B TO N8RMAL PROCESSING 

GET 1ST WORD OF PREVIOUS COMMAND 
RESTORE 1ST WORD 
GET PREVIOUS ARS 
SET IMPLIED QUIT 



GET LINE TERMINATOR 

1ST IT LINE FEED 

B IF NO 

SET IMPLIED QUIT FUGt 

JBJCCARS ALREADY 

SET IF IN 

CPX MSDEt 

SAVE ORIGINAL AR$«1 

RESET TEL WORKING FLAGS 



HOI 
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TEL. 


.TERMINAL EXFCUTTVE 


LANGUAGE 6Q 


493 


0? 


00072 


4»Coo7iF 






ANDiOl 


FLAGS 




494 


0? 


00073 


35C0OC0O 


X 




STWjDI 


JJTEIFLG8 




497 


0? 


00074 


31FQ0014 


N 




CW#04 


UDELTFLG 


CHECK IF PREVIOUS COMMAND WAS 


498 


OP 


00075 


634onf)78 






BAZ 


ITSeKio 


UNDER DELTA $ B IF N8 


499 


0? 


00076 


227Q0080 


A 




LIjR7 


DELTABIT 


YES/ SET UND£R DELTA FLAG 


SCO 


CP 


00077 


4^700000 


X 




STS,R? 


JlTELFLGS 


FOR THE CURRENT COMMAND 


5C1 




02 


0007« 




ITS0K10 


E&U 


* 




5CP 










* 








503 

6* *S 1. 










♦ PICK»UP FIRST 


FIELD 8F INPUT STATEMENT AND DECIDE COMMAND VERB* 


5C4 

505 


0? 


00078 


28200000 


A 


# 


LI,R? 





INITIALIZE BUFFE* POSlTl&N 


506 


0? 


00079 






NFXTTIMF 


RES 





RL2 


5C7 


0? 


00079 


6*A0048A 






BALjSRi 


1 getfield 


RL2 


508 


0? 


0007A 


21700000 


A 




CI/R7 





INSURE DATA IS RESENT 


5C9 


0? 


0007B 


6*30O0lD 






BE 


PROMPT 


GO AGAIN IF NO COMMAND GIVEN 


510 


0? 


0007C 


2160O04B 


A 




CI/Ra 


».* 


DID A PERIOD TERMINATE THE FIELD*. 


511 


0? 


C007D 


6^300083 






BNE 


SCANCVT 


NOj NOT A LOAD MODULE 


51? 


0? 


C007E 


21700001 


A 




CI#R7 


1 


DID FIELD CONTAIN MORE THAN I CHAR* 


513 


0? 


0007F 


6^200095 






BQ 


LMNCMD 


YES* MUST BE A L^Nt 


514 


0? 


C0080 


78B0O00C 


A 




LB*SR4 


Dl 


IMPLIES A LMN OR PCL COMMAND^ 


515 


0? 


00081 


21B0OO03 


A 




CI#SR4 


iLi 


L .ACCNT ENTERED AS COMMAND* 


516 
517 
518 


0? 


00082 


6^300095 




it 


BNE 


LMNCMD 


IF NOT A L COMMAND, MUST BE A LMN, 










* SCAN COMMAND VERB TABLE(S) 




519 










* 








1* 




02 


00083 




SCANCVT 


FGU 


$ 




?# 


0? 

0? 


C0083 
00084 


0220OO20 
0°CooiOO 


A 

N 




PUSH 


PjDI 


SAVE COMMAND AS USER TYPED IT 


3# 


0? 


Q0085 


238FFFFF 


A 




Ll#SRi 


•1 


FLAG UPPER CASE 


4* 


0? 


00086 


2S40O00O 


A 




LI#R4 





INITIALIZE FLAG TO WORD SEARCH 


5* 


0? 


00087 


21700004 


A 




CI#R7 


4 


VERIFY WORD SEARCH 


6* 


0? 


00088 


6«20O08A 






BLE 


• 42 


OtK* 


7# 


OP 


00089 


2U40O001 


A 




Al*R4 


1 


DO dOuBLEWOrQ SEArCh 


8# 


0? 


0008A 


21700008 


A 




CI#R7 


8 


MORE THAN 8 CHARS MEANS 


9* 


0? 


0008B 


6»20O0A8 






BG 


D8UBLE1 


NOT A TEL COMMAND 


10* 


0? 


OOOsC 


38580827 




VFCTABj 


L**,R 5 


SCNVBSIZ,R* 


GET LIST SIZE 


11* 


OP 


0008D 


6?08O829 




VECTAB2 


FXU 


SCNVErB#R4 


EXECUTE PROPER COMPARE INST 



HOI 



1*1 
IP* 
13* 
14* 
15* 
16* 
17* 

18* 
19* 

527 
528 

529 
530 

1* 
53? 
533 
534 
535 
536 
537 
53* 

539 

540 
541 

54? 

543 
544 
545 
546 
547 
564 
1* 

P* 



36 SEP 08* 
OP 0008E 

0? 0008P 
0? 00090 

CP 00091 

0? 00092 
OP 00093 
OP 00094 



175 

6»30O0B4 
6*500C8D 
2^800001 A 
69200GA8 

49CQ0000 06 
4^D0OO0O 06 
6»00O08C 



C2 
OP 00095 
C? 00096 

0? 00097 
OP 00098 
OP C0099 
02 
OP 0009A 
OP 00098 

0? 0009C 
0? 0009D 

0? 0009E 
OP 0009F 
0? OOOAO 
OP 0O0A1 

0? 000A2 
0? 000A3 
0? 000A4 
CP 000A5 
0? 0O0A6 
0? 0O0A7 

02 
0? 000A8 
CP 000A9 
CP OOOAA 



00095 

31F0O013 N 
6**0009A 
225QOC01 A 
<* A 500000 x 
6*300833 

0009 A 

6 A Bon9AD 
02200020 A 
b 900l00 N 
02200020 A 

0&7G0100 N 
6^Aon89l 
02200020 A 
QAAOfilOO N 
0220O02O A 
A D0O10O N 
32500015 N 
4*500000 X 
22C0O1P0 

6^0000CD 

OQOA* 

02200020 A 
A C00100 N 
3iFoncl3 N 



TEL-TERMINAL EXECUTIVE LANGUAGE 61 

BE VPCT A MATCH 

BORiiRB VECTABf SCAN ENTIRE LIST 

AI#SR1 1 INCR FLAG FOR LOWpR CASE SEARCH 

BGZ D»UBLE1 LOWER CASE SRCH DONE* UNKNOWN CMP 

* N8W SEE IF THE C8MMAND IS RECOGNIZABLE WHEN CBNveRTfD TB UPPER CASt 



BRiDi 
8R#Dp 
B 



VERB2 
VERB2 
VECTAB1 



# PROCESS A COMPLEX LMN AS COMMAND. 



LMNCMO FQU 

CW*D4 

BAN4 

LliRS 

LS*R5 

BEZ 

LMNCMDIO FQU 

BAL#SR4 
PUSH 

PUSH 

BALiSR3 
PULL 

PULL 

LW#R5 
STS#R5 
LIjOl 
B 



DBUBLE1 



FQU 
PULL 

CW#D4 



IGUIT 

LMNCMDIO 

JSTEP 

JJTELFLGS 

BK8PT0 

* 

FID 

2#SR2 

P#R7 

NFND 
2jSR3 

2*02 

UNKLMN 

jitelflgs 
parser 

GRBUP2B 

$ 

2#D1 

IOUIT 



C8NVERT LOWER CASE 

TB UPPER CASIt 

GO SCAN THE LIST AGAIN 



CHECK FBR IMPLIED QUIT 
B IF YES 

ARE WE AT J08 STEP 
N8 • ASK IF QUIT 

BREAK COMPLEX FID 
SAVE ACCOUNT 

SAVE PASSWORD 

THIS WILL LEAVE LMN IN R6,R7*SRi 
RESTORE PASSWORD 

AND ACCBUNT 

SET FLAG TB INDICATE UNKNOWN L*N 

SET TB SCAN REMAINING MS<* 



RESTORE USER»S TYPED COMMAND 
CHECK FOR IMPLIED QUIT 



Mftl 
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TEL-' 


TERMINAL EXFCUT 


566 


0? 


OOOAB 


6^4oonAF 






BANZ 


DBL10 


567 


0? 


OOQAC 


22500001 


A 




LI/R5 


JSTEP 


568 


0? 


OOOAD 


* A 5ooooc 


X 




LS^RS 


JSTELFLGS 


569 


0? 


OOOAE 


6*300833 






BE* 


BkBPTO 


570 




02 


COOAF 




DBL10 


fqu 


* 


571 


0? 


COOAF 


6AAon89l 






BAL#SR3 


NFND 


57? 




02 


OOCBU 




SPCASP 


rQU 


Parser 


573 


0? 


QOOBq 


28C C ni20 






LIjDi 


574 










# 






575 










* 






584 


0? 


000B1 


32500015 


N 




LW/R5 


UN^LMn 


585 


0? 


C00B2 


4?50O000 


X 




STSjRB 


JlTELFLQS 


586 


0? 


00083 


6*ooooC9 






B 


GROUPpA 


587 










# 






1* 


0? 


OO0B4 


08200020 


A 


VECT 


PULL 


2,Dl 




OP 


000B5 


OAConioo 


N 








P* 










* 8EF0RE 


EXECUTTNQ THE COMMAND, 


3* 


0? 


000B6 


O^iooioo 


N 




PUSH 


Rl 


4* 


0? 


0O0B7 


28101000 


A 




L.I/R1 


D&NTBIT 


5* 


0? 


0O0B8 


3H0O00O 


X 




CW#Rl 


JlTELFLQS 


6* 


0? 


0O0B9 


6«40O0C5 






BA2 


N8D8NT 


7* 


0? 


OOOBA 


0*5ooioo 


N 




PUSH 


R5 


8* 


OP 


OOOBB 


2810H01F 


A 




LI#Ri 


XfiFf 


9# 


0? 


OOOBC 


4»100005 


A 




AND#R1 


R5 


10* 


0? 


COOBD 


28800000 


A 




Ll/SRi 





ii# 


OP 


OOQBE 


38900020 


N 




LW#SRp 


Y8 


l?* 


0? 


OOOBF 


2t>8PoiOO 


A 




SLD#SR1 


0*R1 


13* 


Op 


COOCO 


25500078 


A 




SUS#Rs 


■•5 


14* 


0? 


000C1 


6?08082D 






fxu 


DCMPRS*R4 


15* 


0? 


OO0C2 


694000C4 






BANZ 


DONTOk 


16* 


OP 


000C3 


6*000262 






B 


GIVEBIRD 


17* 


0? 


OOOC4 


0*500100 


N 


D8NT0K 


PUU 


R5 


18* 


0? 


0O0C5 


0*100100 


N 


N8D8NT 


PULL 


Rj 


19* 


0? 


OO0C6 


67080828 






exu 


VECTORS, R4 


606 




02 


000C7 




VECTB10 


FQU 


$ 


6C7 


0? 


000C7 


22CQOOOO 


A 




LI*Ol 





608 










* 







.ANGUAGE 68 

B IF YES 

ARE WE AT JOB STEP 
NO - ASK IF QUIT 

N8 FIND»PR8CESS AS UNKNOWN LMN 

SET TO SCAN REMAINING INPUT WITH 
UNKNOWN LMNt IF N© SCAN IS DESIRfcDj 
CHANGE T8 LliDl 0. 
SET FLAG T8 INDICATE UNKNOWN L*N 



RESTBRF USER'S T*PED COMMAND 
SEE IF USER SAID DONT ILLEGALLY 

WAS COMMAND PRECEDED 

BY DONT 

NO* DONiT BOTHER CHECKING LEGALITY 

YES, CHECK PROPER DONT BIT LIST 

MASK FOR BJT POSITION 

INDEX FOR SHIFT iNSTt 

SIT T8 SHIFT 

SHIFT FOR COMPARE 

WORD INDEX FOR DONT BIT LIST 

EXECUTE PROPER COMPARE 

DONT IS LEGAL (BIT SET) 

DONT IS ILLEGAL 



EXECUTE PROPER VECTOR 

LMN NAMF LOADED IN R6#R7 AND NO 
FURTHER SCAN NECESSARY 



HOI 



610 
611 

61? 
613 
614 
615 
616 
617 
618 
619 
620 
621 
62? 
623 
624 
62B 
626 
627 
628 

629 

630 
631 

633 
634 
6355 

636 
637 

ft <Se> 

639 

64o 
641 
64? 
643 
644 



36 SEP OS* '75 



0? 0O0C8 

0? 0O0C9 
02 OOOCA 

o? oooce 

0? 00QCC 



02 OOOCU 



0? OOOCD 

0? OOOCE 
0? OOOCF 

02 QOQDo 
0? 000D1 



0? OO0D2 
0? OO0D3 
02 0O0D4 
0? 000D5 
0? 0O0D6 
C? 000D7 
0? 000D8 
0? 00009 
0? OOODA 
0? OOOOB 
0? OOODC 
0? OOODD 
0? OOODE 
0? OOODF 



38800000 OS 

3^000712 
32E0O00O 05 
22A0O000 A 
22BonoOO * 



22500001 

4*500000 
6^300100 

21CQ0000 
6^300126 



02 QOCDS 



0^200000 A 
0*100100 N 
6 a BqoC0O X 
38400000 * 
28100008 A 
4*100000 X 
6*30O0DD 
221FFFF7 A 

4*100000 X 
3&100000 X 
6«00O0DF 
12600748 

6ABQOC02 N 
126qo74A 



TEL-TERMINAL EXECUTIVE LANGUAGE: 63 

« 

* THE QR0UP2 COMMANDS ARE THBSE REQUIREING THE LOAD »F AN ASSOCIATED 

* PROGRAM. THF LOAD IS EXECUTED 1MMEDIATLY IF NO FURTHER SCAN IS 

* REQUIRED BUT DEFERRED TO THE END IF SCANNING IS DONp, 
♦ 

GR6UP2 



GR8UP2A 



L*#SRl 

LWiD? 
LW/D3 

Ll*SR3 
LI#SR4 
FQU 



VERBj 

SYS 
VfRBI 






SET SYSTEM ACCOUNT AND JIT FOR 
THE PROGRAM LOADER. 
CLEAR PASSWORD 



GR6UP2B 

« 

* TEST FOR WITHTN JOB STEP. ABORT PREVIOUS MAJOR OPERATION IF NOT. 



LI*R5 

LSjRR 

BE2 

ClsO\ 

BNE 

FQU 



GR0UP2C 

• TEST FOR 

* 

PUSH 



JSTEP 

JJTELFLGS 
INBREAK 


PARSE 

* 



ARE WE AT 

JOB STEP 

JUMP IF GR8UP2 COMMAND AND BREAK 

IS FURTHER SCAN IMPLIED 

YES 



SI RfLfASE AND ASSIGN/MERGE WRITE LOGIC 

SAVE REGS 



GRPEXT 
GRPEXTi 



BAL#SR4 
LW,R4 

LI # R1 

LSjRi 

BEZ 

Ll/Rl 

AND#R1 

STWjRi 

B 

LD#R6 
BAL#SR4 
LD#R6 



16#R1 

RFADAM 

JiABUF 

SlNORpL 

JjTELfrLGS 

GRPEXT 

•(SINOREL^I) 

JjTELFLGS 

JlTELFLGS 

GRPEXTI 

THJSI 

ASSIGN42 

TMlGO 



NO. READ IT IN 

NOW PICKUP ADDRESS 

can si Be released 

IF SET DO NOT RELEASE 31 FROM A/fl 

AS THIS IS A NEW ENTRY 

MASK TO 

RESET 91 RELEASE FLAG 



RELEASE SI ENTRIES 
IS THERE A GO IN A/M 



Hoi 18J36 SEP CSj 

645 03 OOOEO 

646 0? 0O0E1 

647 0? 0O0E2 
64ft 0? Q00E3 

649 OP 00QE4 

650 0? 0O0E5 

651 0? Q00E6 
65? 0? OO0E7 

653 0? 000E8 

654 0? 0O0E9 

655 0? OOOEA 
1* OP OOQEB 

657 0? OOOEC 

658 0? OOOED 

659 OP OOQEE 

660 0? OOOEF 

661 0? OOOFO 
66P OP OOQFl 
663 0? 000F2 

665 OP 000^3 

666 OP QO0F4 
0? 000F5 

667 0? 000^6 

668 0? 0O0F7 

669 OP 000F8 

670 0? 0O0F9 

671 0? OOOFA 
67P 0? OOOFB 

673 0? OOOFC 

674 02 

675 0? OOOFO 

676 OP OOOFE 
677 

678 0? OOOFF 

679 OP OOiOQ 

680 OP OOtOl 

681 OP OOlOP 



t75 

6AB000OI N 
2l50OC0G A 
6930O0E6 

22lonPOO A 
4?l0O00Q * 
6*000188 
6AB0O000 X 
22501000 A 
4&50O000 X 
63300P6P 
28500010 A 
4*580000 X 
3&500000 X 
6*OOOAP1 
221FFFFC A 
4^100000 X 
351QO000 X 
2^400011 A 
285EOO0O A 
474Q0004 N 
0220O00O A 

0M00100 N 

U0007PE 
6*300103 
11000736 
6«300103 
28000100 A 
4&00O00O X 
6830O0FF 
OOOFU 

18000730 
6*000103 

28000080 A 
4&00OO0Q X 
6*300103 
18000736 



TEL. 
BALjSR4 
CI#R5 
BNE 
LI#Rl. 
STS#Ri 
B 
GRPEXT2 BAL4SR4 
LI#R5 
AN0#R5 
BNE 
Ll#R5 
fiR/RS 
STW,R5 

BALjRo 

LI#«t 

ANDiRl 

STWiRl 

SLS#R4 

LI#R5 

ST6JR4 

PULL 



CD/Ro 

BE 

CD*Ro 

BE 

LI#Ro 

ANDjRq 

BU 

FGU 

LD^Ro 

B 



YESFDP 



N8FDF 



LIjRO 
ANOjRo 
BE* 
L0#0 



TERMINAL EXECUTIVE 
ASSIGNS 


GRPEXT8 
$R8MFL6 
JITELFLGS 
*R8M 
WRITEAM 
D6NTBIT 
J:?ELFLQS 
SlVEBlRD 
X»10» 

AMJSTD»PjR4 
JI9PT 
TELCCBUF 

•(BRKBIT+JSTFP^l 
JITELFLGS 
JITELFLGS 
17 

•XI20000' 

ARS 

16jR1 

FDP 

N8DEL 

DELTA 

N8DEL 

FDPBIT 

JITELFLGS 

N8FDP 

FDPl 
XEXIT 

DFLTABIT 
JITELFLGS 

N8DEL 
DELTA 



LANGUAGE 64 



YES 

N8 • CREATE % DEFAULT 

SET RETURN FLAG 

THIS WILL RETURN $*1 

^RITE ASSIGN/MERGE 

IS THE ?D8NT! FLAG SET 

IF S6j GIVE 'EM THE BIRD* 

ALWAYS PRGVICE SI 8PTI8N 

AND ASSIGNED 8PTJ8NS F»R THIS STfeP 

PLACE COMMAND IN jfCCBUF F8R USE* 
) RESET BREAK & jSTpP FLAGS 



RESET ARS Y8 
XtFFFEQOOOf 
(MIUC) 
RESTBRg REGS 



ITS 8RIGINAL VALUE 



IF THE C8MMAND WAS ElTHE* 
FDP 8R DELTA# SKIP THE 
SMALL SECTI8N 8F C8DE 

FDP FLAG BIT 

BR, IF FDP BIT N8t SET 

SET Up DEBUGGER ASS8CUTJ8N 

DEBUGGER ASSSt 

SKIP DELTA ASS8CIATI9N 



BR t 
YES 



IF DELTA BIT N8T SET 



HOI 



18136 SEP 08j 


♦75 






TEL- 


• TERMINAL E 


68? 


0? 


00103 






N8DEL 


RE$ 





683 










# 






684 


c? 


00103 






XEXIT 


PES 





685 




oooocooi 






08 


DBUQ«o 


686 


CP 


00103 


223D7FCF 


A 




LI#R3 


MUCRSFT 


687 


0? 


00104 


4 A 30O00O 


X 




LS#R3 


MJUC 


6l5o 


0? 


00105 


33300000 


X 




STfo#R3 


MjUC 


689 












FIN 




690 


c? 


00106 


22300000 


A 




LIjR3 





691 


0? 


00107 


11600742 






CDjR6 


L8G8FF 


69? 


0? 


00108 


683oni08 






BE 


YEXIT 


693 


c? 


C01C9 


28400000 


N 




LI#R4 


JBJFRS 


694 


0? 


OOlOA 


7&38OQ00 


A 




STBjR3 


OjR4 


69S 




02 


0010» 




YEXIT 


ECU 


$ 


696 


c? 


OOloB 


6AF 0ft A2F 






BAL1D4 


FREEBUFl 


697 










« 






699 


0? 


0010C 


0490OO01 


A 




CAL1j9 


1 



6& 



* RELEASE DATA 

♦**N8RMAL M8DE*** 

RSET M8D#DRC & V^C BITS 

BEF8RE EXITING 



RESET RUN STATUS F8R ALL EXITS 
EXCEPT L868FF 



RELEASE 8UR BUFFER 
INTERPRETIVE EXIT .. NAMfc IN Rfe 



RL2 



Hoi 



IS 

703 

704 

70S 
706 
707 
708 
709 
710 
711 
71? 
713 
7U 
715 
716 
717 
718 

719 

720 

721 
722 
723 



136 SEP C&* »75 



02 QQIOU 

02 OOloD 3Hoo736 

0? 0010E 6»3onoD2 

0? OOloF 2H50P000 A 

0? 00110 47500000 X 

02 QOlll 6A00OA21 

0? 0OU2 2251FFFF A 

02 00113 315QOOOO X 

0? OOlU 69400119 

02 QOllS 

02 00115 225QO000 A 

0? 00116 75500000 X 
02 00117 

02 00117 6AF 0O A2F 

02 00118 0*900003 A 



TEL-TFRMINAL EXECUTIVE LANGUAGE 
PAGE 

# THE FOLLOWING is executed when a 

# LOAD AND EXECUTION OF AN OUTSIDE 

* JOB STEPt THIS IMPLIES THE ABORT! 

* REPIACING IT WITH THE CURRENT ONE 

• 



66 



MAJOR C8MMANDC0NE REQUIrERInG THE 
PROCESSOR) IS RECEIVED OUTSIDE ©F A 
ON OF THE PREVIOUS JOB STEP AND 



INBREAK 



INBREAKl 



XABORT 



FQU 

CW#R* 

BE 

LIjRb 

STSjRb; 

BALjO 

LI#R5 

CN*R5 

BANZ 

EOU 

LN5 
STB#R«5 

RES 
BALjDfc 

CAL1j9 



i 

DELTA 

GROUP?C 

CCBUFBIT 

JJTELFLGS 

TELCCBUF 

XflFFFF* 

JlEXTENT 

QUIT 

$ 



U:ABC 


FREEBUFl 

3 



IS THIS A REQUEST FOR DElTA 

SET IMAGE BUFFER CONTROL TO RETAIN 
CURRENT MESSAGE And R£»P«OCE$S 



EX CON SPECIFIED 
YES* FORCE EXIT 



ABORTED PREVIOUS PROCESS 

RELEASE OUR SUFFfcR 
ABORT 



Hoi 



18J36 SEP 08* 


»75 








TEL. 


•TERMINAL EXECUTIVE 


LANGUAGE 


724 












PAGE 








78B 








# 












726 








* 


QUIT 


C8MMAND ( 


:6MES HERfct 






727 








* 












72« 


0? 00119 


285onooi 


A 


QUIT 


LI#R5 


JSTEP 




WE MUST BE IN A BRE 


729 


0? OOllA 


4*500000 


X 






LS#RR 


JjTELFLGS 






730 


0? OOliB 


6^30fl903 








BNEZ 


SYN1 






731 








« 


INTERPRET AS 


A »SS» C8KMAND 


IF 


EXIT C9NTR&L HAS 


73? 








• 


BEEN 


ESTABLISHED AND NOT IN 


PROGRESS 


733 








* 












734 


0? OOllC 


2251FFFF 


A 






LNR5 


X»1FFFF« 






735 


0? OOllD 


31500000 


X 






CVOR5 


JsEXTENT 






736 


02 OOllE 


6*400115 








BAZ 


INBREAKl 






737 


0? OOilP" 


785QO00O 


X 






LB,R« 


JIEXTFNT 






738 


02 00120 


21500020 


A 






CI,R5 


X»20* 






739 


0? 00121 


6*400115 








BANZ 


INBREAKl 




IF IN PRSGRESS* NQ 


740 


02 00122 


287Q0002 


A 






LI#R7 


2 




FAKE IT#SET BIT 6 


741 


0? 00123 


49500007 


A 






8R/R«5 


R7 






74? 


0? 00124 


7^500000 


X 






STB#R5 


JjEXTENT 






743 


02 00125 


6*0002EB 








B 


CBNTINX 






744 












TITLE 


tPARSF CBMPILE AND ASSEMBLE CBMMaNDS' 



67 



CBNDJTieN 



FAKi? 



Hoi 18136 SEP 08j * 75 
745 
746 
747 
748 
749 
750 



parse compile and assemble commands 



6* 



751 
75? 

753 

754 

755 

756 
757 
758 
759 
760 
761 
762 
763 
764 

765 
766 
767 

768 

769 
770 
771 
772 
773 
774 

775 
776 
777 
778 
779 



02 00126 

03 00127 
OP 00128 
0? 00129 

02 
02 0012A 
02 0012B 
02 0012C 



0220O0FO A 

0*100100 N 

21100000 A 

ES»3onooC A 
0012A 

022oocFo A 

OMOOIOO N 

6**oonoD2 



02 0012U 
0? 0012D 6AB0OO0O X 
02 00l2fe 



0? 0012E 
0? 0012F 

02 00130 
02 00131 
0? 00132 



3920O11A N 
6*AQn48A 
6A0AO8DF 
21700000 A 
6*J30014A 



0? 00133 
0? 00134 
02 00135 
0? 00136 



31C0O711 

68300231 
31CQ0713 
6*300159 



* THE FOLLOWING LOGIC PRESERVES THE INTEGRITY ©F THE REGISTERS THAT WILL 

• 8E USED WHEN WE FINALLY EXIT AND LOAD THE DESIRED LMN. IT ALSO 

# PROVIDES A COMMON EXIT FROM THE PARSING LOGlCt 
# 

PARSE PUSH ISjRI SAVE LOAD PARAMETERS 



ENTPRG 



CI,Rl 





BNE 


*D1 


eQU 


t 


PULL 


15#R1 



IS THERE MORE MESSAGE T8 SCAN 
YES-ENTER CORRECT PROCESS 

NQ»PR8VIDE COMMON EXIT 



B GROUPpC 

* THIS SECTION 8F CODE IS DfDICATED TO THE BREAKDOWN OF THg INPUT STREAM 

* AS IT PERTAINS TO THE COMPILE AND ASSEMBLE COMMAND VERBS. THERE IS A 

* GREAT VARIETY OF FORM ASSOCIATED WITH THIS INPUT STREAM AND, 

* CONSEQUENTLY, A GOOD DEAL OF LOGIC IS PROVIDED* NOT ALL OF WHICH N$£D 

* BE EXECUTED FOR A PARTICULAR BUFFER IMAGe» ENTRY T» THIS CODE MAY tfg 
« MADE ONLY IF AT LEAST ONE FIELD FOLLOWS THE COMMAND VERB. 



# 
PARSER 

TOPPARSE 



EQU 

BAL*SR4 

EQU 

STWiRg 

BAL#SRl 

BALfO 
CI*R7 

BE 



rfaDam 
i 

scnptrsv 
getfield 

ST0PS#5 



TESTEOM 



GET ASSIGN/MERGE TABLE 

SAVE INP PTR FOR SYNTAX CHECKING 



DIS WE GET SOME DATA 

NO 



AT THIS POINT, A DETERMINATION MUST BE MADE TO DETECT CERTAIN, 
RECOGNIZABLE ELEMENTS SUCH AS *, Me, OVeRj BR 8N t IF NONg OF TH£S£# 
THE FIELD IS ASSUMED TO BE A SIMPLE FlDt 



CW,Dl 
BE 

CW#Di 
BE 



DOLL 

CHKULM 

ME 

DOME 



A $ IS EXPLICILY ILLEGAL AS A FI0 
SYNTAX ERROR 



HOI 



181 

780 
781 
78P 
783 
784 
785 
786 
787 
788 
789 
790 
791 
79P 
793 
794 
79R 
796 

797 
798 
799 

800 
801 

80? 
803 
806 
807 
808 
809 
810 
811 
812 
813 
814 

815 
816 
817 
818 



36 SEP 
OP 00 
CP 00 
OP 00 
0? 00 

OP 00 
CP 00 
0? 00 
0? 00 
0? 00 
OP 00 
0? 00 



08, 
137 
138 
139 
13A 

02 
13B 
13C 
130 
13E 
13^ 
140 
141 



OP 00142 
0? 00U3 
0? 00144 
OP 00145 
C? 00146 
0? 00147 
0? 001*8 
0? 0OH9 
Op OOHA 
OP QOHB 
OP 0014C 
0? 0014D 
OP 00l*E 
OP OOl^F 
OP 00150 

0? 00151 
0? 00152 

0? 00153 
0? 00154 
CP 00155 
0? 00156 



'75 

31C00716 
6*300168 
31CQ0717 
6«30O16A 
00l3» 

6A50048E 
22500010 

^asqocoo 

6*3ooi42 
3820O11A 
202FFFFF 
6*O0O?3l 



0*700100 N 
126Q0748 
38400000 X 
6AB0O000 X 
0*700100 N 
6A8Q0000 X 

22300001 
3$3AoOOO 
22500200 
4A500000 
6^3oooE6 
22500060 
4A50O00O 
6S>3ool5P 
2250O12F 
69000153 
22500170 

21100000 A 
6*20012A 

22320000 A 

4A30O000 X 



PARSE C8MPILE AND ASSEMBLE C8MMANDS 

CWjDi 8N 

BE D88N 

CW#Di 8VER 

BE DB8VER 

Ai ECU * 

BAL#RB QETACPAS 

TESTSI L!#R5 SISET 

LS#R5 JjTELFLGS 

BEZ TESTSI2 

TESTSIl LW,Rp SCNPTRSV 

Al#Rp •! 

B CHKUIM 



6? 



IS TMIS THE FIRST SI ENTRY 



YES 
MULT 



SI NBT ALLBWfD, SYNTAX 1**8* 



* THIS 

# PREVJ 
* 
TESTSI2 



FID MUST N8* BE SET IN 
BUS MJSI ASSIGNMENTS. 



THE ASSIGN/MeRGE TABLES REPLACING ALL 



PUSH R7 

LD#R6 TM1SI 

L*,R4 JIABUF 

BAL#SR4 ASSIGN 
PULL R7 

MGSI BAL#SR4 FILENT 

Ll#R3 1 

STW#R3 MBDE»PLlST*3jR5 

TESTEBM LI#Rs *R8MFLG 

LS#R5 JiTELFLGS 

BNEZ GRPEXT2 

Ll*R5 BNBlT^eVERBlT 

LS*R5 UjTELFLGS 

BNEZ $«3 

LI#R5 TBPPARSE 

B t*2 

LI*R5 BpRSE 

CIjRl 

BLE ENTPRG 

LI#R3 MSGEBIT 

LS,R3 JITELFLGS 



CLEAR ASSIGN/MERGE AND FIND A 

PLACE F»R THIS ENTRY (RETURNED IN R5) 

ENTER SI PLIST 

BUT MAKE IT AN IN M8DE FILE 

ARE WE PROCESSING F8R DEFAULT G8 

YES 

H8W AB8UT AN 8VER/8N C8NPITI8N 



ANY M8RF MESSAGE 
N8 

TEST F8R TRAILING GARBAGE 



Hnl 



18J3i 
819 
820 
821 
82? 
823 
824 
826 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 

1* 
837 

1* 
839 

840 



i SEP 08j 
0? 00157 
0? 00158 



02 00159 
0? 0015A 

0? 0015B 
0? 0015C 
02 0015D 
02 0015E 
0? 0015F 
02 00160 
02 00161 
02 00162 
02 00163 
0? 00164 
02 00165 
02 00166 
02 00167 



♦75 

69300231 
E*000005 



2850O010 A 

4*500000 * 
6*300161 
6»00013F 
02200040 A 
2*C0O79A 
2**CAo003 A 
6&00014A 
38400000 X 
18600748 
6AB0O00O X 
32C8OO00 X 
20C00007 A 

3SC8OO00 X 
6*00Ol5D 



PARSE C8MPILE AND ASSEMBLE C8MMANDS 
BNEZ CHKUIM SYNTAX ERR&R 

B *R5 



* PR8CESS INV8KpD WHEN 9 ME t IS F.NCBUNTERED AS A FID 

# 
D8ME 



70 



D8ME1 



D8ME2 



LI#R5 
LS/R5 
BEZ 
B 

LCI 

LMiDl 

STMjDi 

B 

LW/R4 

LD/R6 

BAL4SR4 

LWjDt 

Al^Dl 

STw#Di 

B 

TITLE 



MAS THERE BEEN AN SI YrT 



N8»G8 CREATE 8NE 

YES# MULTIPLE SI N8T ALLOWED 

CREATE ME 8P LABL PLIST 



SISET 
JlTELFLQS 
D8ME2 
TESTSli 

4 

8PENME 

3jR5 

MGSI*3 

JJABUF 

TMJSI 

ASSIGN 

AM|8RGjR4 

7 

AMI»RGjR4 

D8ME1 

♦PARSE 8VER/8N P8RTI8N 8F C8MMAND VeRB? 



8LD AVAIL 
SIZE THIS 



HEAD 
ENTRY 



UPDATE HEAD 



HOI 



181 

841 

843 
844 
843 
846 
847 
848 
849 
850 
851 
85? 
853 
854 
855 
856 
857 
858 
859 
860 
861 
86? 
863 
864 
865 

866 

867 

e$ ©ft 

869 
870 
871 
87? 
873 
874 
875 
876 
877 



36 REP 08j 
0? 00168 
0? 00169 
0? 0016A 
0? 0016B 
0? 0016C 
02 
0? 0016D 
0? 0016E 
0? 0016? 
0? 00170 
0? 00171 

0? 00172 
0? 00173 
0? 00174 
0? 00175 
03 00176 
0? 00177 
0? 00178 
0? 00179 
0? 0017A 
0? 0017B 
0? 0017C 
0? 00170 
0? 0017E 



02 0017F 
02 00180 

0? 00181 
02 00182 
0? 00183 



2SC3O104 A 
6*00O70E 

31C0O714 
6*300231 
22Fq«000 A 



D00N 
D00VER 



♦ 75 

22300020 A 
6*000160 

21700004 A 
6»20O13B 

223Q0040 A 
Q016U 

^7300000 X 

2160O06B A 

6*30OlC5 

6 A A004gA 8PRSE 

217QO00O A 

6^300231 

6AoAn8DF 

225Q0004 A 

315QOOOO X 

6»40Ol0l 

#7500000 X 

31C0O711 

683001BB 

31C00713 

6^30Ol9E 

32lonoOO * 
3U0O015 N 
6940O12A 



LI#Ra 

B 

CURy 
BG 

LI#R3 

dooveri eou 

STS#R3 

CI/R6 

BE 



PARSE OVER/ON P0RTT0N BF COMMAND VERB 



71 



QNBIT 

dooveri 

4 

A! 

OVERBIT 

* 

JlTELrLGg 

Ci#» 

EXTDGO 
BALiSRl GETFIELD 
Cl*R7 o 



BE 

BAL#o 
LI^RS 
CW#R5 
BANZ 

STS,R5 

CW/D1 

BE 

CW#Dl 

BKE 

L*#Ri 
CW,R1 

BANZ 



CNKULM 

3T6PS#R5 

PHSFLG 

JlTELFLGS 

DBLO 

JlTELFLGS 

DOLL 

•ROM 

ME 
ROMDEv 

j8teiflgs 

unkimn 

entprq 



SET fONi FLAG 

DeUBLECHECK OVER IMPLICATION 
ITS AN SI FIO 
SET ?OVER» FLAG 



DID ADVERB END WITH A COMMA 

ASSUME IMPLIED SPECIFICATION IF Y£S 

INSURE WE GOT DATA 
SYNTAX ERROR 

PHASING FLAG FOR GO OR LO 

SET i PROCESS FOR LO 
OTHERWISE* FLIP TO DO L© N|XT 
TEST FOR * ROM SPECIFICATION 

ME IS NOT ALLOWABLE FOR OUTPUT 

IS IT 

UNRECORNlZgD LMN 

IGNORE ERROR AND EXECUTE LmN 



*E# ERROR I * 

*E* GROUP Q3, CODE'Ot, SUBC0DE*04 * 

*E# DESCRIPTION* * 

*E* USER SPECIFIED ON OR OVER ME WHICH IS ILLEGAL * 

#E# AS ROM NAME* * 

»«#**«#««•****«#•#«««##• #«*** «#*«#*«*# #####«##### ###♦####♦#♦############ 

LIjDi X»Q30104t ERROR CODE & SUBCODE 
B CMNERR1 TELL USER & PROMPT 

• 

R6M$BLT CWjDi LP LP IS NON. ALLOWE& INTHjS POSITION 

BE CHKULM SYNTAX ERROR 

LI#D4 FlPROC WAS FID ALREADY**, 



Hnl 18J36 SEP 08* 

878 C? 00184 

879 0? 00185 

880 0? 00186 

881 0? 00187 
88? 0? 00188 

883 0? 00189 

884 0? 0018A 

885 C? 0018B 

886 0? 0018C 

887 0? 0018D 

888 0? G018E 

889 0? 0018F 

890 0? 00190 

891 0? 00191 
89? C? 00192 

893 0? 00193 

894 02 

895 C? 00194 

896 0? 00195 

897 0? 00196 

898 0? 00197 

899 C? C0198 
1* 0? 00199 
2* C? 0019A 

3* C? 0019B 

905 0? 0019C 

906 0? 0019D 



♦75 

31F0OO00 X 
694oni8A 

022ono20 A 

2 A 90OC00 X 

SS70DOOO A 

228onooo A 

324onooo x 

28500020 A 

4A5onooo x 

6*300194 
22500200 A 
4A50nO0O X 
6^300194 
6 A B f>86F 

2iooncoo A 

6830MC9 
0019* 

0^700100 N 
1S60074A 

6ABQ0000 X 

0*7omoo N 

6 A BonoOO X 

2S5FFFFE A 

4^500103 N 

3S5ont03 N 
2250O080 A 
6»0001FD 



PARSE BVER/8N P8RTTBN 6F 



CW,D4 
BANZ 
LCI 

LM/SR? 
LIiR7 
L I# 9Ri 
R0M$8LTl LW,R4 
LI/R5 

LSjRFS 
BEZ 

L1/R5 
LS/R5 

bnez 

BAL/SR4 

CliRo 

BE 

R8MGB egu 
PUSH 
LD,R6 
BAL4SR4 
PULL 
BAL#SR4 

RBMGOl LI#R5 
AKDjRg 
STW#R5 
LI#R5 
B 



JlTELFLQS 
RBM*BLT1 
2 
UjACCN 





J:A8UF 

ONBIT 

STELFLQS 

BMGO 

tRBMFLG 

JlTELFLQS 

RBMGO 

FLOP 



BNERR 

* 

R7 

TMtGO 

ASSIGN 

R7 

FILEM 

•2 

FEXTIM6 

FEXTImG 

X»80» 

L8FINS 



COMMAND VERB 72 

••tPRBCESSED 
YES 

CREATE COMPLETE FID FROM INPUT DATA 
PUT LOG.ON ACCOUNT IN SR2#SR3 
NO PASSWORD IS ASSUMED IN R71 SRI 



WAS *BN» SPECIFIED 

NB 

IS BUILD $ DEFAULT 

SPECIFIED 
VES 
CHECK IF FIL£ AL^FADY EXISTS 

FILE EXISTS* BN ILLEGAL 



RELEASE ANY PREVIOUS GB ENTRIES AS 
THIS IS A NEW SPSClFlCATlONt 

FILL FILE DATA INTO ASSIGN ENTRY 
RESET FILE 
EXTENSION FOR 

MlGO» 



HOI 



18S36 < 


SEP 08i 


9C7 






908 






9C9 






910 






911 






91? 






913 






914 




02 


915 


0? 


0019E 


916 


02 


0019F 


917 


0? 


OOlAO 


91* 


0? 


OOiAl 


919 


02 


001A2 


920 


0? 


001A3 


921 


0? 


001A4 


9?? 


0? 


001A5 


1* 


0? 


001A6 


924 


0? 


001A7 


92* 


0? 


001A8 


926 


0? 


001A9 


927 


0? 


OOlAA 


928 


0? 


OOlAB 


929 


0? 


C01AC 


930 


c? 


OOlAD 


931 


0? 


OOlAE 


93? 


c? 


OOlAF 


933 


0? 


OOlBO 


1* 


0? 


OOlBl 


935 


o? 


001B2 


1# 


0? 


001B3 


937 


0? 


001B4 


938 


c? 


001B5 


939 


c? 


001B6 


940 


0? 


001B7 


941 


0? 


001B8 


94? 


0? 


00189 


943 


0? 


OOlBA 



»75 



PARSE 
PAGE 



9VER/8N P8RTI9N 9F C8MMAND VERB 



73 



Q0l9fc 

21700002 
6^300181 

325onooc 

2S500470 
22700000 
515EO00O 
6«3001AB 
6*7qoiA3 
4»5ooolO 
2150C3D7 

6*3001AB 
215QD5D6 
6^300181 
22500040 
4A500000 
6^300231 
3240OO00 

1260074a 
6ABQO00O 
32780000 
2^700007 
3&780000 
0^200040 
2 A 70079A 
3$>CqooOA 
2SAQ0070 

02200040 
2 b 7Ao003 
68000199 



# 
# 
* 
# 
« 
R8MDEV 



CHKS F8R LOEV.CP 8R N9, IF FfiUND 
OEVICE PLIST F9R MjGQ. 8THeRWTSE 
R8M$BLT AND PrBCcsSES F9R FID. 



R6MDEV1 



FQU 

CI/R7 

BNE 

L*'R5 

SAS#R5 

U*R7 

CMjRR 

BE 

BDR#R7 

AND#RS 

CIjRs 

BE 

CI#R5 

BKE 

LI#R5 

LS#RS 

BNEZ 

LW/R4 

LD,R6 

BAL#SR4 

LW#R7 

AliR7 

STWiR7 

LCI 

LM#R7 

STWiDi 

SLSjSR^ 

LCI 

STM#R7 
B 



* 

2 

RBMfSLT 
D1 

• 16 
SVilSTZ 

SHJINM#R7 

RBMDEV1 

i»2 

M16 

»CP» 

R8MDEV1 

»N8» 

R8M$BLT 

9VERBIT 

JtTELFLGS 

CHKULM 
JlABUF 

TMIG9 

ASSIGN 

AM |9RG # R4 

7 

AMI8RGjR4 

4 

8PENME 

SR3 

• 16 
4 

3jR5 
R9MG81 



BUILDS 
RETURNS T9 



CHK SIZE 9F FIELD 
D8ESNIT QUALIFY 



IS IT STRM ID 



CARD PUNCH 



G8 PR8CESS F8R FID 
CHECK 8VER FLAG & 
D8N?T ALL8W 

F8R DEVlCESt 
GET ADR 8F A/M REC 

REL PREV ENTRIES 
8LD FREE HEAD 
SUE THIS ENTRY 
NEW FREE HEAD 

DEV PLIST 

ST8RE DEV IN PLIST 



PLACE PLIST IN A/M REC. 



Hoi 



lft! 

944 
945 

946 
947 

948 
949 

950 
951 

95? 
955 
954 
955 

9 Sib 
957 
958 
959 
960 
961 
96? 
963 
964 
96R 
966 
967 
96ft 
969 
970 
971 

97? 
973 
974 
975 
976 
977 
97ft 
979 
980 



36 REP C8j '75 



PARSE BVFR/ftN PBRTTBN 8F C8MMAND VERB 
PAGE 



74 



02 
0? OOlBB 
C? OOlBC 
C? COlBD 
C? OOlBE 
0? GOlBF 

0? ooico 

0? OOlCl 
0? 001C2 
0? 001C3 
0? 001C4 



0? 001C5 
0? 001C5 
0? 00tC6 
0? 001C7 
OP 001C8 



OQlBtt 

2250O0C7 A 
6*80O9A8 

3S50O00C A 
38D0O000 05 
32E0O000 05 
02200020 A 
2 A 90O000 X 
22700000 A 
228QO000 A 
6S00O18A 



22500004 A 
4/50O000 X 
225QO080 A 
6800O1FD 



og ooicy 

0? 001C9 022QO030 A 

0? CClCA 2»C0O005 A 

0? 0C1C8 22C30112 A 

0? OOlCC 6ABqooOO X 



* CREATE A $R$M FILE ENTRY in THE ASSI3N/MERGE AND RELEASE ANY PREVIOUS 

* ENTRIES F6R THE Ge DCB. A NY PrEViBUS *R»M FILES WILL aLSB &E RELEASED. 



# 

*R6M 



FGU $ 

LI#5 C»Q» 

BAU#SR4 NAME$ 

STWjS 01 



LW#0? 
LWj03 
LCI 
LMjSR? 

LI#7 
LliSRi 

B 



VERB! 
VERBl 
2 

JIACCM 





RBMiBLTl 



« PERF8RM NECESSARY FUNCTIONS WHEN A FIELD HAS BEEN iMPLlEOt 

« 

EXTDGB RES 

LI#R5 PHSFLG INSURE PHASE FLAU IS SET 

STSjRb JjTELFLGS 

LI#R5 X»8Q» 

B LBFINS 
«»«**#*«*«#*##*#«***«#*«*»#«#«*#*«■###**«#»#*««###*#*«#«*«*#»##*»#*#«*««« 

*E# pRRBRj * 

#E* GR8UP 03j C8DE»0i# SUBC8DE«12 * 

*E* DESCRTPTIBNI * 

*E# USER SAID fONi A FILE WHICH ALREADY EXlSTSt * 

*E# FILE NAME IS INSERTED BEFBRE TYPING THE gRHBR # 

♦ E* MESSAGEt * 

BNERR FQU $ 

LCI 3 SAVE FILE 

STM#Di RK NAME IN R§*R7 

Ll/Di XI030112? ERROR CBDE & SUBC8DE 

BALjSR4 TtERRTXT GET MSG 



HOI 



1RJ36 SEP 08* 


'75 




PARSE 


981 


0? 


001CD 


02200030 


A 


LCI 


98? 


0? 


OOlCE 


2°520002 


A 


STM,R5 


983 


0? 


OOlCF 


28000903 




L!#R0 


984 


0? 


OOlDO 


6*000000 


X 


B 


98B 










# 


986 










* 


987 










# PROCESS FOR L 


988 










# 


989 




02 


OOlDl 




D8L8 FGU 


990 


0? 


OOlDl 


2170000? 


A 


CI#R7 


991 


0? 


Q01D2 


693001DF 




BNE 


99? 


0? 


001D3 


3250O00C 


A 


LW*R5 


993 


0? 


001D4 


25500470 


A 


SASjRS 


994 


0? 


001D5 


227QO00O 


N 


tI*R7 


99n 


0? 


00106 


515EOC0O 


X 


ChiHS 


996 


0? 


00107 


6*300210 




BE 


997 


0? 


Q01D8 


6*7ooiD6 




BDR*R7 


998 


0? 


001D9 


31CQ0713 




CWjOi 


999 


0? 


0010A 


6*300210 




BE 


1000 


0? 


QOlDB 


31C00714 




CW,Dl 


1001 


0? 


OOlDC 


6*300210 




BE 


100? 


0? 


OOlDD 


31C0O715 




CW/Dl 


1003 


0? 


GOlDE 


6*300210 




BE 


1004 


c? 


OOlDF 


31CQ0711 




D8L81 CWiDi 


1005 


0? 


OOlEO 


6*300231 




BE 


1006 


0? 


OOlEl 


22F08000 


A 


LI#D4 


1007 


0? 


001E2 


3iFoooOO 


X 


CW#D4 


1008 


0? 


001E3 


6$>4001E8 




BANZ 


1009 


c? 


001E4 


02200020 


A 


LCI 


1010 


0? 


001E5 


2*900000 


X 


LM#SR2 


1011 


0? 


G01E6 


22700000 


A 


LI#R7 


101? 


0? 


C01E7 


22800000 


A 


LI#SR1 


1013 


0? 


001E8 


22500020 


A 


L&8LT LliR?? 


1014 


0? 


001E9 


4A50OO0O 


X 


LS/R5 


101* 


0? 


OOlEA 


6»3ooiEE 




BEZ 


1016 


0? 


OOlEB 


6 A B o86F 




BALjSR 


1017 


0? 


OOlEC 


21000000 


A 


CI#Rq 



KVER/8N PORTION 8F 

3 

2,R1 

SYN1 
T*WRTERR 



1ST SPECIFICATION. 

$ 

? 

DBL81 

01 

• 16 

SVjLSlZ 

SHlLNMjR7 

L8ME 

$•2 

ME 

LOME 

LP 

LOME 

NO 

LOME 

DOLL 

CNKULM 

FlPROC 

J8TELFLGS 

LBBLT 
2 

JjACCN 



0NBJT 
JtTElFLGS 
L8MG8 
4 FLOP 



COMMAND VERB 

STORE FILE NAME 

IN MESSAGE 
SIMULATE BAL 
WRITE MSG & RETURN BUFFER 



75 



POSSIBLE STRM OR OEV 

N8 



FOUND DEV stream 
TEST F8R VARIATIONS 



a * is illegal in this position 
syntax error 
was a complex fiu.. 
.••already processed 

yes 

create a complete fid 

using l8g»0n account 

n8 password is th£ assumption 

WAS lONi SPECIFIED 

NO 

CHECK FOR UNIQUE FILE 



HOI 1&S36 SEP 08* 

1018 0? GOlED 

1019 0? OOlEE 

1020 0? COlEF 

1021 0? OOlFO 

102? OP OOlFl 

1023 02 001F2 

1024 0? 001F3 

1025 02 GOIF4 

1026 02 001F5 
5027 C? 001F6 
1028 02 

1* 0? 001F7 

?* OP OOlFg 

3* 02 001F9 

1034 0? 001FA 

103R 0? OOlFB 

1036 0? OOlFC 

1037 02 
1* 0? OOlFD 

1039 02 00l F E 

1040 0? 001FF 

1041 C? 00200 
104? 0? COSOI 

1043 02 00202 

1044 02 00203 
5045 0? 00204 

1046 02 

1047 0? 00205 

1048 02 002C6 

1049 0? 00207 

1050 0? 00208 

1051 02 00209 
105? 0? 002CA 

1* 0? 0020 B 

?* 0? 0020C 

3# C? 002CD 

1058 0? 0020E 



1 75 
6*3ooiC9 

2250O40Q A 
4^500000 X 
6*300205 

32400000 X 
0*700100 N 
1260074C 

6 A B0O000 X 
0*700100 N 

6^^00000 X 
Q01F7 

225FFFFB A 
4*500103 N 

3^500103 N 
225?O00O A 
4?50O00O X 
22500001 A 

001F" 

47580000 X 
28500800 A 
4*500000 X 
683Q014A 
2U0O00O A 
6*200231 
6ABonoOO x 
6*000010 

00205? 

32400000 X 
0*700100 N 
1260O74F. 

6AB00OOO x 
0*700100 N 
6AB000OO X 
225FFFEF A 
4»500103 N 
3^500103 N 
22500100 A 



PARSE 8 
BE 
IBMG8 LI/R5 
LS*R«5 
BNEZ 

LW/R4 
PUSH 
LD,R6 
BAL#RR4 

BALjSR4 

L8SETUP FGU 

LI#R5 

AND,Rg 

STW#R?I 

LI#R5 

STSjRB 

LI,R5 

L6FINS FQU 

STSjRR 

L!#R5 
LS#R5 
BEZ 

CI#Rl 

B6 

BAL4SR4 

B 

D88LT FQU 

l*i#R4 

PUSH 

LDjR6 

BAL#SR4 

PULL 

BAL#SR4 

LAS LI#R5 
AND#R5 
STW#RB 

Ll*R5 



VER/8N P8RTI8N ©F 
8NERR 
C6MFLQ 
J:TELFLGS 
D6BLT 

JjABUF 

R7 

TM|L8 

ASSIGN 

R7 

FILENT 

* 

F^XTIMG 

FFXTIMG 

MS6EBIT 

JJTELFLGS 

1 

* 

AMjSTDBPjR* 

L8FLG 

JITELFLGS 

TESTE8M 



CHKULM 
WRITCAM 
PR8MPT 

* 

JjABUF 

R7 

TMJD8 

ASSIGN 

R7 

FILENT 

X»FFFeF' 

FEXTIMG 
FFXTIM6 

XflOO* 



C8MMAND VERB 

FILE FXTSTSi ©N ILLEGAL 
TEST F8R C8MMENT CBMMAND 



70 



ANY PREVI8US ENTRIES ARE RELEASE^ AS 
THIS IS A NEW SPECIFICATI8N, 

ENTER THE FILE DATA 

RESET FILE 

EXTENSI8N F8R 

MjL8t 

SET END 8F MSG FLAG 

SET L8 SPEC JN 8^TI8NS 



HAVE WE BEEN PRS^ESSING A LIST C^D 

N8 

INSURE N8 TRAILING JAZZ 

WRITE A/M 

YES-G8 F8R NEXT "eSSAGe 



MAKE ENTRY F8R 00 DCB 



RESET FILE 

EXTENSI8N F8R 

M|08t 

SET D8 IN 8PTI8NS 



Hoi 



18136 < 


;EP 08j 


♦75 




PARSE BVgR/eN P6RTT8N 


1059 


C? 


0020F 


6»00niFD 




B 


L8FINS 


1060 










* 




1061 










* CREATE ME SR LP 


8PLABEL AND 


1062 










* 




1063 


0? 


COPlO 


22500400 


A 


L8ME Ll>R5 


C6MFK3 


1064 


0? 


00211 


^ A 5onooo 


X 


LS/R5 


JiTElFLGS 


1065 


0? 


00212 


6*300222 




BNEZ 


L8ME3 


1066 


0? 


00213 


32400000 


X 


LW*R4 


JJABUF 


1067 


0? 


00214 


1260074C 




LD/R6 


TMjt8 


1068 


0? 


00215 


6AB noOO 


X 


BAL4SR4 


ASSIGN 


1* 


0? 


00216 


3878D00O 


X 


Lfc#R7 


AMJSRGjR* 


1070 


0? 


00217 


2070O007 


A 


Al#R7 


7 


1* 


0? 


00218 


3&78O000 


X 


ST*#R7 


AM|8Rq*R4 


107? 


0? 


00219 


0220O04O 


A 


LCI 


4 


1073 


0? 


0021A 


2*7oo79A 




LM,R7 


GPENME 


1074 


c? 


C02lB 


31Con7l3 




CW*Dj 


ME 


107B 


0? 


0021C 


6*3oo?lF 




BE 


*+3 


1076 


0? 


Q021D 


3&C0O00A 


A 


STWjDl 


SR3 


1077 


0? 


0021E 


2SA0O07O 


A 


SLS#SR3 


-16 


107ft 


c? 


C021F 


02200040 


A 


LCI 


4 


1079 


c? 


00220 


2 tt 7An003 


A 


5TM#R7 


3#R5 


1080 


0? 


00221 


6»00OlF7 




B 


L8SETUP 


1081 


0? 


00222 


32^00000 


X 


L6ME3 LW,R4 


J1ABUF 


108? 


0? 


00223 


1260O74E 




LD,R6 


TMjDe 


1083 


0? 


00224 


6AB0O000 


X 


BAL#SR4 


ASSIGN 


1* 


0? 


C0225 


3278n000 


X 


LW,R7 


AMj8RGjR4 


1085 


0? 


00226 


2^700007 


A 


Al#R7 


7 


1* 


0? 


C02P7 


39780000 


X 


STW*R7 


AMJ8RGjR4 


1087 


0? 


00228 


0220O04O 


A 


LCI 


4 


1088 


0? 


00229 


2 A 70O79A 




LM#R7 


8PENME 


1089 


0? 


0022A 


31CQ0713 




CWjDi 


Mr 


1090 


0? 


0022B 


6**3oo22E 




BE 


i*3 


1091 


0? 


0022C 


3SC0000A 


A 


STW#D1 


SR3 


109? 


0? 


0022D 


2SA0O07O 


A 


SLSiSR3 


• 16 


1093 


c? 


C022E 


02200040 


A 


LCI 


4 


1094 


0? 


0022F 


2°7AnC03 


A 


STMjR7 


3#R5 


10^5 


0? 


00230 


6*00O?oB 




B 


LAS 



SF C8MMAND VERB 

MERGE INT8 DCBt 

DETERMINE IF L8 8R 00 

CREATE NEW 18 ASSIGN ENTRY 

ADDRESS RETURNED IN R5 
8LD FREE HEAD 
SIZE THIS ENTRY 
NEW HEAD 



ll 



G8 SET BITS F8R U8 

CREATE N^EW D8 ASSIGN ENTRY A S W a $ 
D8NE FSR L8 
8LD FREE HEAD 
SIZE THIS ENTRY 

new free head 



C8MPLETE the PR8GFSS 



HOI 



18136 SEP 08, n5 



1096 
1097 
1098 

1099 
1100 

1101 
110? 
1103 
1104 
110R 
1106 



02 00231 



0? 00231 
0? 00232 
0? 00233 
0? 00234 
0? 00235 
0? 00236 



y 100100 
32100000 
31100015 
6»40O8F7 
0*100100 
6800012A 



PARSE ftVpR/eN P8RTT8N 9F COMMAND VgRB 



♦ DETERMINES IF UNRECeQNIZED 
♦TERMINATE SCAN*IGN©RE ERR8R 

# 



CHKULM 



FCU 

PUSH 

LW,Ri 

CWiRi 

BAZ 

PULL 

B 



$ 

Rl 

JlTELFLQS 

UNKLMN 

SYNTAX 

Rl 

ENTPRG 



L8AD MaDULE (N6T F&RTRAN 
AND EXECUTE L9AD M8DULE* 



74 

8R META). IF SfcTj 



IS TMIS AN UNRgCNlZED LMN 



N8j 
YESj 



PUT 8UT SYNTAX ERR»R MSGEt 
EXIT AND gXfcCUTE LMN 



HOI 



188 

107 
108 
109 
110 
111 
11? 
113 
114 
11* 

life 
117 
118 
119 
120 
121 
12? 
123 
124 
125 

126 
127 
128 
129 
130 
131 
13? 
133 
134 
135 
136 
137 
138 
139 



36 SEP 08* '75 



02 
0? C023B 
0? 0023C 
0? 0023D 
C? C023E 

02 
0? 0023F 

0? 00240 
0? 00241 
0? 00242 
0? 00243 



02 00244 



0? 00244 
0? 00245 
0? 00246 
0? 00247 
0? 00248 



PARSF BVER/8N P0RTI8N 8F COMMAND VERB 
PAGE 



79 



02 00237 
0? 00237 6AB0O9D7 
0? 00238 12C0OO08 06 
0? 00239 126Q0738 
0? 0C23A 6»000?3F 



# 
# 
* 
BUILD 



BUILD SM8RT F8RM REQUEST 



0023* 

6*Bon9D7 
12C0O72A 

1*600738 
6»00023F 

QQ23* 

Q220O02O A 
2»Cqo106 N 

72C0O00O x 

6A00OA21 

6*0QO0C7 



21100001 A 
6^20o8F7 
3HD0O014 N 

47DQOC00 * 
6«00O0lD 



fCU 

BAL#SR4 
LD/Ol 
LD*R6 
B 



SHFTBUF 
BUILDa 
EDIT 
CMNDSET 



SHIFT REQUEST 



# EDIT SH6RT F©RM CBMManD VpRB 

* 

EDITO 



CMNDSET 



PCU 

BAL 

LOs 
IDs 
B 

EGU 
LCI 
STM 
LB, 
8AL 
B 



iSR4 

Dl 
R6 



*D1 
Dl 

#R0 



ShFTBuF 

EDITA 

EDIT 

CMNDSET 

* 

? 

TELBUF 

JBtCCARS 

TpLCCBUF 

VECTB10 



SHIFT C6MMAND 
MAKE IT L88K LIKE 
L8NG FORM 



ST88RE C6MMAND IN BUF 
NUMBER CHARS IN CMND 

MevE message T8 ccbuf 



# under 

# 
UDELT 



DELTA SH8RT (S8NLY) F8RM COMMAND VERB 



ECU 

Cli 

BG 

Lfc# 

STS 

B 

TIT 



R1 

D? 

iD? 

LE 



SYNTAX 
UDELTFLG 
JtTELFLGS 
PROMPT 

iDEBUG C8MMAND 



IF U IS SPECIFIED, UNDER DELTA 
IS IMPLIED F8R THfc NEXT L8MMAND. 

SET UNDER DELTA *8R NEXT C8MMAND 
FLAG 
VERBf 



Hoi 



18J36 
1140 
1141 
114? 
1* 
P# 
1143 
1144 
1145 
114ft 

1# 

?# 
1151 
115P 

1* 

P* 

3* 
1156 
1.1 57 



SEP 



OP 

0? 
02 
0? 
0? 
0? 
0? 
0? 
0? 
0? 

0? 
OP 
0? 
OP 
0? 



08* 

02 
00249 

0024A 
C024B 
0024C 
0024D 
0024E 
C024F 
00250 
00251 
00252 
02 
00253 
00254 
00255 
00256 
00257 



'75 

00249 

21700005 
692002F7 

6ABQOQ0Q 
38400000 
22301000 
4*300000 
6S»30O?53 
22D1O000 
47D8O000 
6$00OP56 
00353 

223EFFFF 

4»380000 
3b38O000 
6AB0O000 
6«00O0lD 



DEBUG 



DEBUQ1 



DEBUG2 



DEBUG C8MMAND VERB 

FQU * I 

Cl#R7 5 

BG SYNTAX 

BAL#SR* READAM 

LW4R4 JJABUF 

tI*R3 DONTBTT 

LS/R3 gjTELFUGS 

BNE* DEBUGi 

LIjD? xiioooo' 

STSjDP AMISTD8P*R4 

B DEBUG? 

FGU » 

Ll#R3 X?EFFFF» 

AND#R3 AMjSTD8PjR4 

STW#Rg AMJSTD8PjR4 

BALjSR* WrITEAM 

B PROMPT 

TITLE I6UTPUT C8MMAND VERB' 



8U 



FIELD AFTER DEBUG 
YES • SYNTAX ERROR 

(NOP IF A/M IN C«RE) 

D8NT PREFIX 
YES • BRt 

SET DEBUG M8DE 8N 



RESET DEBUG M8DE f*FF 



HOI 



18* 
1158 
1159 
1160 
1161 
116? 
1163 
1164 

1165 
1166 
1167 
116ft 
1169 
1170 
1171 

1* 
1175 
1176 

1# 
?# 
3* 
4* 
5* 
6# 

7# 
8* 
9# 

10# 

11* 
1184 

1185 

1186 
1187 
1188 
1189 



36 S£P 08* 
0? 00358 
0? 00259 



0? 0025A 
0? 0025B 
0? 0025C 
0? 00250 



02 

OP 0025E 
OP 0O25F 



0? 0026C 
C? 00261 
0? 00262 
0? 00263 

0? 00264 
0? 00264 
0? 00265 

0? 00265 
0? 00266 
0? 00267 
02 00268 



<75 

22400000 A 
6*00026C 



22300404 A 
47300000 X 
22400002 A 
6*00OP6C 



8UTPUT 



0025^ 

22301000 A 
4?30OO00 x 



21100000 A 
69200079 
22C30116 A 
6«00O70E 



0U80 
0001 
OlOO 

OUOO 
F*FFFF7F 

F^FFFFFE 
FI-FFFFFF 



LIjR4 

8 



OUTPUT COMMAND VERB 



ax 



SET COMMAND INDEX 



COMMENT 



LIjR3 

sTsjR: 

LI#R4 
B 

# THIS L8GIC H 

# CONTINUING T 

# THE C9MMAN0 
# 

cefsiT fcu 

LI*R3 
STSjR 

#E* FRROr 

# E# DESCR 
*E* 
*E* 

CI#Ri 

BG 

GIVEBlRD Ll*Dl 

B 
* 
8PTAB DATAj 



LISTC8M 

C8MMENT C8MMAND VERB 

FLIP PHASE TO L© 5 SET CMO UNIQUfc 
SET COMMAND INDEX FOR COMMENT 



CBMFLG*PHSFLG 

JITELFLQS 

2 

LISTC6M 



A 

A 
A 

A 

A N8PTAB 

A 

A 



ANDLES THf ADVERB D8NT BY SETTING A SPECIAL FLAG AND 

MF C8MMAND iNTERPRETATIONt TnE FLAG IS CHECKED ONL* IN 
PROCESS WHERE IT HAS MEANING. 



DBNT8IT 
3 JITELFLGS SET DONT FLAG IN TELFLGS 

S GROUP 3# CODE « 01*16 * 

tPTIONj THE USER SAID »DONT» WITHOUT SPeCIFIYINg # 

THE VfRB 8R WITH AN ILLEGAL COMMaNU, SO WE GIVE * 

»EM THE BIRD (SlOt * 

♦##*»####»##############^##»###* #♦#*### #####§.#*♦########## 

ANY UN»SCANNED CHARACTERS 

NEXTTIME 

XI030116» ERROR CODE & SUBCODE 

CMNERR1 TELL USERtt. 

? Xi80SX'01» 



DATA#? X»100t*X»n» 

DATA X»FFFFFF7F» 

DATA XtFFFFFFFFt 

DATA X'FFFFFEFF' 

TITLE HIST COMMAND VERB I 



HOI 



188 

1190 
1191 
119? 
1193 
1,194 
11915 
1196 
1197 
1198 
1199 
1300 
1901 
130? 
1203 
1304 
130R 
1306 
1307 

1308 
1309 
1310 
1311 
1313 
1313 
1314 
131* 
1216 
1317 

1318 
1319 

1330 
1321 
133? 

1333 
1334 
1335 
1336 



36 SEP 08# 
0? 00269 
0? 0026A 
0? 0026B 



0? 0026C 
C? 0026D 



02 0026E 
0? 0026F 

0? 0027Q 

03 00271 
0? 00272 
0? 00273 
02 00274 

02 00275 
C? 00276 
0? 00277 
0? 00278 
0? 00279 
0? 0027A 
0? 0027B 
0? 0C27C 

03 0027D 
0? 0027E 
0? 0027F 



♦75 

223onon4 A 

^7300000 X 

2H40OC01 A 



21100000 A 
6«30O37C 



283onooi A 
4*300000 X 
6»3on82F 

32CQOO00 OB 

2230OC0C A 
6AAoofiAO 
28300800 A 
47300000 X 
6AB0OC0O X 
31C00716 
6*300168 
31C0O717 
6**30016A 
6**00n8F7 
2230OC01 A 
2£50OG0O N 
4A30O00O X 
6930O28B 



LIST LI#«3 

STS#R3 

LIi«4 

# 

* THE FOLLOWING I 

# COMMAND VERBS. 
* 

LISTC8M CIjRi 

BE 
#######♦#######«# 
*E* 
*E* 



LIST COMMAND VERB a2 

PHSFLQ FLIP THF PHASE T» L© 

JjTELFLGS 
1 SET COMMAND INDEX F6R LIST 

S COMMON CODE USED BY THE LIST* OUTPUT AND COMMENT 
R4 MUST CONTAIN AN INDEX UNIQUE TO THE COMMAND, 




LIST1 



TEST FOR FOLLOWING MODIFIER 

NO DATA*IMPLIES FUNCTION CHANGE 



*«*##«###«*#«****#**#**#•#*##*«#*#•#*«##*##**«***#«#**# 



frrorj 
descript 



*E« 

•E# 
♦ £♦ 

*E* 
*E* 

LIjR3 
LS/R3 
BEZ 
# 

LW*D1 
Ll#R3 
BALjSRs 
LI#R3 
STSjRs 
BAL#SR4 
CW#Di 
BE 

CW,Dl 
BE 
B 
LIST1 LI*R3 

LI/RS 
LS# R3 J I 
BNEZ 



GROUP 03j CODEiOl* SUBCODE«00 
ION* 
USER ISSUED LIST, COMMENT OR OUTPUT CoMMANP 
WITH IMPLIED ASSIGNMENT CHANGE* E«<*« LIST ON 
DC/ABC* WHEN NOT AT JOB STEP* THIS IS ILLEGAL AND 
WE TYPE A MESSAGE AND PROMPTt 



JSTEP 

JjTELFLGS 

NTJBST 

VERB1 

D1 
SCAN 

LOFIG 

j:telflgs 

readam 

ON 
DOON 

OVER 
DOOVER 

SYNTAX 
JSTEP 
JSOPT 
TELFLGS 
LTST4 



PRE-ASSIGN CAN ONLY BE DONE 

AT JOB STEP 

COMMAND ILLEGAL UNLESS JOB STEP TIME 



OBTAIN MODIFIER 
SET LIST CMD FLAG 

NO.READ IT IN 
IS MODIFIER ON 
YES-ENTER COMMON CODE 
HOW ABOUT OVER 

NEITHER ONE IS AN ERROR 
ARE WE AT JOB SUP OR BREAK 



JOB STEP 



HOI 



18136 < 


*EP 08^ 


1227 


02 


00880 


1228 


02 


00281 


1229 


02 


00282 


1230 


02 


C0283 


1231 


02 


00284 


1# 


02 


00285 


1233 


02 


00286 


1234 


02 


00287 


123F? 


02 


00288 


1* 


02 


00289 


1236 


02 


0028A 


i# 


02 


0028B 


2* 


02 


0028C 


3# 


02 


0028D 


1238 


02 


Q028E 


1239 







»75 

281301000 A 
4*300000 X 
6^300286 
52380264 
C730O00S A 
6*000289 
32380266 
C&30000B A 
B930O005 A 

6ABQO000 * 
6*000010 
6AB000OO * 
32500000 X 
20500000 N 
6*000280 



LIST C8MMAND VFRB 

LISTS LI/R3 D8NTB1T 

LS#R3 JJTELFLGS 

BKEZ LIST3 

LN#R3 6pTABiR4 

STSiR3 *R5 

B LIST5 

LIST3 L^jR3 N©PTAB*R4 

AND/R3 #R5 

STWiR3 #R5 

LIST5 BALjSR4 WRITEAH 

B PR6MPT 

LIST4 BALjSR* RpADAH 

LWjR5 JJABUr 

Al#R5 AMJSTD6P 

B LIST2 

TITLE fSTART CBMMANDi 



83 



TEST F8R D&NT ADVpRB 
IT HAS BEEN GIVEN 



TURN 9FF 0PTI0N 



N8P IF ALREADY IN 



12*0 0? 0028F 

1^*1 0? 00290 

12*? 0? 0C291 

12*3 0? 00292 

12** 02 00293 

12*5 02 0029* 

12*6 0? 00295 

12*7 02 00296 

12*8 0? 00297 

C? 00298 

12*9 02 00299 

0? 0029A 

1250 02 0029B 

1251 02 0029C 
02 0029D 

125? 02 Q029E 

02 0029F 

1253 02 002A0 

125* 02 C02A1 

1255 0? 002A2 

1256 0? 002A3 

1257 02 002A4 

1258 02 002A5 
02 002A6 

1259 02 002A7 

1260 C? 002A8 

1261 02 002A9 
126? 02 002AA 
1263 02 002AB 
126* 0? 002AC 

1265 C? 002AD 

1266 02 002AE 

1267 0? 002AF 

1268 02 

1269 02 00280 

1270 0? 002B1 

1271 0? 002B2 



♦75 

21100001 A START 

6«2on?C* 

6 A Aon48A 

lXCon73? 
6»3on?D5 
2i60OC*8 A 

6»3on2C6 

6AB n9AD 

0220OO2O A START1A 

tt 9oni00 N» 

0*2ono2o A 

0*700100 N 
6 A Aoft89l 
0^200020 A 
A A00100 N 
Q220O02G A 

o A Domoo N 

88Cofjooo A START2 
2250*000 A 
*' ; 50f)000 * 
21100001 A 
6*2onccD 
0220O090 A 
0*600100 N 
l^Conooo 06 
6AA0ngA0 
217QO001 A 
6^3002BO 
21100001 A 
692on«F7 

22A noE* A 
71A0O00C A 
6*300288 
002BU START7Q 

11Coo732 
6y30ft8F7 

START7 



CI,Ri 

BLE 

BAL#SRq 

BE 
CI*R6 

BNE 

8AL#SRfc 

PUSH 

PUSH 



START COMMAND 



PULL 

LI/01 
LI#R5 
STSiRB 

CI,R1 
BLE 

PUSH 



START4 
GETFlFLD 

UNDER 

START* 
!•♦ 

STARTB»2 

FID 

2jSR2 

2jR7 



IS TMFRe M8RE MS9 



8* 



BAL^SR* NFND 
PULL 2#SR3 



2*D2 



STRTBIT 

JlTELFLGS 

1 

GR9UPPB 

9*R6 



LD#D1 VERB2 
BALjSR3 SCAN 
Cl*R7 1 
BNE START70 
C I » R 1 
BG 

LI#SR3 

CB#SR3 

o ■• 

FCU 

CD#Di 

BNE 

RES 



SYNTAX 

!U» 

Dl 

START75 

* 

UNDER 

SYNTAX 





GET NEXT FIELD 

CHK IF F6RM BF tSTART UNDER LMN t 

CHECK COMPLEX FID 
BRAEK FID 



MAKE NAME TE*TC 



SET BIT FOR SYSE«R IN CASE FETCH 
D6ESN»T FIND iTi 

TEST FURTHER M^SSaGe 

NO M9RE 

SAVE L8AD DATA 



NEXT FILD CAN ONLY BE »UND£R» 
CHECK F8R SINGLE CHAR UNDER DELT, 
REQUEST. B IF NO 
NO M8R£ ALLOWED 

WAS IT fU' FOR UNDER DELTA 

6 IF YES 



M01 18136 SEP 08# 

1979 02 0O2B2 

1273 09 002B3 

1974 09 Q02B4 

1975 09 009B5 

1976 09 002B6 

1977 09 002B7 
197ft 02 

1979 09 002B8 

1980 09 002B9 

1981 09 002BA 
09 002BB 

1989 C9 002BC 

1983 09 002BD 

1984 09 002BE 

1985 09 002BF 
1286 09 002C0 

1987 02 G02C1 
09 002C2 

1988 09 002C3 

1989 09 002C4 

1990 09 002C4 

1291 09 002C5 

1292 02 002C6 

1293 09 002C7 
1994 09 002C8 

1295 09 002C9 

1996 09 C02CA 

1997 02 002CB 

1298 09 002CC 

1299 02 002C0 

1300 09 002CE 

1301 02 002CF 

1302 09 002D0 

1303 02 C02D1 
19C* 02 002D2 
1305 02 002D3 
130* 09 002D4 



'75 

l2Coooco 06 

6AA008AO 
21100001 A 
6»20o8F7 
liCoo734 
6*300260 
00?B* 

2830OC80 A 
47300000 X 
0^200090 A 

0*600100 N 
6S0002AO 

1XC0O730 
6^3on8F7 
22300100 A 
473QO000 X 
0220OO90 A 

0*600100 N 
6*Q0O2AQ 

6AQ009DD 
6*000?Ao 
31C0O711 
6*30O2CD 
02200020 A 

2A900000 X 
22700000 A 
22800000 A 
6*000297 
22630000 A 
2270FFFF A 
4A600000 X 
25600008 A 
2U60O0D3 A 
02200020 A 
2^000000 X 

6*0002Ao 



START C6MHAND 

LD#D1 VFRB2 

BALjSP3 SCAN 

CI#Rl 1 

BG SYNTAX 

CC*D\ OELTAi 

BKE START3 

START75 ECU ft 

LI/R3 DFLTABIT 

STS#R3 vilTELFLGS 

PULL 9,R6 

B START2 

START3 CD#Di FDPl 

BNE SYNTAX 

LI#R3 FDPBIT 

STSjR3 JiTELFLGS 

PULL 9,R6 

B START2 

START4 RES 

BALjRc START9 

B START*? 

CWiOl DBLL 

BE START6 

STARTS LCI 2 

LH,SR? JjACCN 

Ll*R7 

Ll/SRi o 

B START1A 

START6 LI/R6 Xi30Q00» 

LI/R7 XtFFFFf 

LS'R6 Jl JIT 

SLS#R6 8 

AljR* ?L» 

LCI 2 

LM/D2 JjACCN 

B START2 



8& 



IS IT DELTA 8R FPP 



SET DELTA FLAG 



CHECK F8R $ FILE 



BYTE C8UNT FOR IOl 
MASK T9 GET SY3I& 

GET SYsiD 

P8SITI8N 

R6 ■ TFXTC IOL 



HOI 



18136 SEP 08, 


'75 




1307 


C? 


002D5 






1308 


0? 


002D5 


21100001 


A 


1309 


0? 


002D6 


6«2on831 




1310 


o? 


002D7 


6*000?DD 




1311 


0? 


002D8 


22504000 


A 


131? 


0? 


002D9 


4^500000 


X 


1313 


0? 


002DA 


0220O090 


A 




0? 


COSOB 


Qt*60nlOO 


N 


1314 


0? 


002DC 


6*Oon?8? 




131B 










1316 










1317 


02 


002DD 






131ft 


02 


0O2D0 


022ono30 


A 


1319 


0? 


OOSDE 


2 A 600000 


X 


1320 


0? 


002DF 


2160O000 


A 


1321 


0? 


002EO 


6»3on83l 




132? 


0? 


002E1 


0<*2ono2o 


A 


1323 


0? 


Q02E2 


2*Donooo 


X 


1324 


0? 


002E3 


22A0O00O 


A 


132* 


0? 


C02E4 


22B0O00O 


A 


1326 


0? 


002E5 


E8000000 


A 


1327 











START8 



START C8MMAND 



8b 



START9 



RES 

CI/R1 

BLE 

BAL*Rn 

LI#R5 

STSiRB 



1 
STARTFRR 

START9 

STRTBIT 

JITELFLGS 


PUSH 


9 § Ro 



START7 



M8RE 1NF8 MUST F8LL5W 



RES 







LCI 


3 




LM,RA 


JJLMN 


INSUR 


CI#R6 







BE 


STARTERR 




LCI 


2 




LM,D? 


JjACCN 




LI#9R3 





PASSt 


LNSR4 







B 


♦RO 




TITLE 


'ceNTTNie 


C6MMAND VERB' 



INSURE A LMN EXISTS 



PASSt F8R LINK L* ALfcAYSiO 



Hoi 18J36 SEP 08* »75 
1328 
1329 
1330 
1331 
133? 
1333 
1334 
133B 0? 002E6 

1336 0? 002E7 

1337 OP Q02E8 

1338 0? 00&E9 

1339 02 002EA 
1340 

1341 02 002EB 
134? o? Q02EB 

1343 o? 002EC 

1344 0? 002ED 
134* 

1346 0? 002ED 
1347 



2*300001 

^ A 3oocoo 

6«30O2EB 
22C30114 
6BQ0O70E 



28600000 
2870O00O 



6*000103 



A 

A 



C8NTINUE C8MMAND VERB 87 
*«#*##*###«##««*«•**#***#«##**#*#######*#«#«# ##•##* ##♦###♦#####♦###«*##• 

#E» FRR8RJ * 

*E» GR8UP 03j C8D£»01, SUBCSDE^H * 

»E# 0ESCRIPTI8NJ * 

*E» USER SAID C8NTINUE (38) WHILE AT J9B STEPf * 

•E# THERE IS N8 PR8QRAM T8 G8 BACK T8t * 



C8NTINUE Ll#R3 
LS*R3 
BEZ 
LNDi 

B 



C8NTINX 



RES 

Ll#R6 

LI#R7 

D8l 

B 

B 

TITLE 



JSTEP 

J;TELFLGS 

C8NTINX 

X»03Q114' 

CMNERR1 







DBUGil 

TEL 

XEXIT 

tFDP VERB 



ARE WE AT A J8B STEP 

N8T AT STEP* eiKt.t.t 
ERR8R C8DE & SUBC8DE 
TELL USER 



SET UP RETURN EXIT 



DEBUG M8DE 
TEMP 



*##*« 



SETUP* 



Hoi 



18J36 SEP 08* <75 



POP VERB SETUP 



8* 



1348 






* 






1349 


Og 002EE 




FDPSET 


RES 





135D 


0? 002EE 


l2<bon7?E 




LD/R6 


FDP 


1351 


0? C02EF 


1200O72E 




LD#R0 


FDP 


135? 


02 002FQ 


2*ConCOQ A 




Ll#Dl 


Q 


1353 


0? OOSPI 


6*oonnC8 




B 


QR8UP? 


1354 








TITLE 


iDELTA 



V£R8 SETUPt 



HOI 



1355 
1356 
1357 
1358 
1359 
1360 
1361 

136? 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
137? 
1373 
1374 
1375 

1 



836 SEP 08* 

0? C02F2 



'75 



DFlTA VERB SETUP 



8? 



C? 002P2 
0? 002F3 
0? C02F4 
0? 002F5 
0? 002 F 6 
0? 002F7 

02 
0? 002F8 
C? 002F9 
0? 002f r A 

0? 002FB 



3260OG0O 
3160OO1B 
6«4on?F8 
22C3O600 
22000833 
6*000000 

ao?F» 

12600736 

12000736 

22CQOO00 
6*00O0C8 



DEITASET RES 

♦ E* FRRORj * 
*E* GR8UP 03j C8DE«06i SUBC8DE«0Q » 
*E* DESCRIPTI8N! * 
*E# THE USER HAS TRIED T8 ASS8CIATE DELTA WITH * 

♦ E* AN EXECUTF 8NLY PRdGRAMt * 
###*«##*««**«>#««««#*#*««#««#*«*#«#***#*##««*«#*#■»#**##«#«#**##**##«#**# 

L*,R6 J.'EXLV 



BAZ 
Ll#Dl 

LI#Ro 

B 
# 
DELTA8K pGU 

LD#R6 

LD#Ro 

LliDl 

B 

TITLF 



exlvbit 

DELTA8K 
X» 030600 t 
BKSPTo 
TgERR 

DELTA 
DFLTA 

GR8UP? 

»TP C8MMAIMD VFRBt 



IS IT EXEC 8NIY 
N8j 8K T8 ASS8CIATE 
ERR8R C8DE S SUBC8DE 
RETURN F8R T*ERR 



Wol 18836 SEP 08j » 75 
2* 
3* 
4* 

R* 
6* 
7* 
ft* 
9* 

10* 
n* 
l?* 

13* 
14* 
15* 
16* 02 0Q2FU 

17* 
18* 

19* 

20* 

21* 

22* OP Q02FC 

23* 02 002FD 

24* o? 002FE 

25* 02 002FF 

26* 

27* 

2)8* 

29* 

30* 

31* 

32* 02 00300 

33* 02 00301 

34* 02 00302 

35* 0? 00303 

36* 

37* 0? 00304 

3ft* 02 00305 



TP C8MMAND VERB 90 

##»♦***##♦*«#####♦##**#*#♦#*#*#♦###»#«#♦#####♦♦#####*#######*###***#*### 



22C0O000 N 
6*300300 
2£C3oC01 A 
6*00070E 



4 70n7F2 
6*800304 
2<iC3nC02 A 
6**00070F 

32F0001D N 
47FQO000 x 



*F* name: TP * 

*F* PURP8SF* THE TP C8MMAND IS A SPECIAL F»RM &F »&FF» * 

*F* WHICH TELLS THE SYSTEM T8 L8G THIS USER 8FF * 

*F* TIMESHARING AND MAKE THE LINE AVAILABLE AS A TP * 

*F* LINEt * 

*F* DESCRIPTI6N3 TH£ F6LLBWING TESTS ARE MA»F BEF8RE PR8CESSIN* 

*F* THE C8MMAND1 * 

*F* it THE SySTEM MUST 8E SySGENEP FBR TP * 

*F* 7> % TPG (THE TP 3H8ST) MUST BE ACTIVE * 

*F* IF THESE C8NDITI8NS ARE SATISFIED* WE WILL PERFBRM * 

*F* THE SPECIAL L8G8FF. 8THERWISE# AN ERR8R MESSAGE * 

*f* is Generated and the user Remains in tel * 

*#«*#«•*#*«##«*#**««•*«**#«*##*##*#*«*«*#»#«*«#*«#«***#*####*#«#***#*«## 

TP ECU • 

###*♦**♦#*#######««##**♦♦*###*♦♦############*♦*♦####*#####*#*#*###*#*♦#* 

*E* FRR8RJ GRP 03# OC-01 * 

*E» DESCRIPTI8NJ THE USER ISSUED THE TP C8MMAND AND THf * 

*E* SYSTEM IS N8T SYgGENgD F8R TP. * 

###«##•««#««#**#«•*****«#«•***«««*#«#*##*##««*#«#*#***#«###**####**«*«#* 

Ll*D1 TTP SrEF# wILL BE ZER8 

BNEZ * + 3 IF 8PTI8N N8T GENtED. 

LI#Oi Xf030CCH ERR8R C8DE 

B CMNERRi 
# 
*#«**#*#«#*##*##*«*****«•««##*•*###*•######«**##•*#«*«*#*«#«•####•«*«*#** 

*E* FRR8RS GRP 03# OC«Og * 

*E* DESCRIPTION! M:GETID RETURNED CCl SET, INDICATING TPG * 
*E* IS N8T ACTIVE. * 

#*#*«** «•**#«*«*#**•«**«***# «•«####*«##«*#■»*####******##**«#* #««#****##* 

CALl'7 GETID TPG IS ACTIVE IF 

BCRjS *+3 CCl IS NOT SET. 

LliDi Xt030CC2» ERR8R C8DE 

B CMNERRi 

LW,D4 TPFL6 SET TP FLAG F8R 

STS#D4 J:TELFLGS STEPt 



HOI 



lft!36 SEP 08* «75 



TP COMMAND VERB 



94 



39* 










##* 


40* 










*E* 


41* 










*E* 


4?* 










*E* 


43* 










*E* 


44* 










*E* 


4K* 










##♦ 


4** 


0? 


00306 


2£C3nCC3 


A 




47* 


c? 


00307 


6^000000 


X 




4&* 










# 


49* 


0? 


00308 


22CQ0Q00 


A 




SO* 


0? 


003C9 


18600742 






51* 


0? 


0030A 


6«00OCC8 






1376 













##*«#«*«•«#*##«««*«###*#«*##««###«#*#«##*#****#•*###*#»*#«#«#*#«#«*«*#** 



FRRORl QRP 03j OC-03 

DESCRIPTION! THIS IS AN INFORMATION. ONLY MESSAGE TO 

LFT THE USER KNOW HE HAS PASSED THE TESTS FOR TP 
IT WILL B£ FOLLOWED BY THE STANOARP ACCOUNTING 
LINE NORMALLY SEEN AT LOGOFF, 



« 
« 
* 

# 

*•*««********«##**#*#**•*«**•*•*«»•«#*##**#*•* ###♦•*#*#♦# ####*»##***#*#*« 
Ll'Di Xt030C03« ERRMSG KEY 

BALjRo TgERR PRINT MESSAGE 

Ll/Di TO ST9P SCANi 

LD/Rfe LOGOFF SET UP FOR EMT 

B GROUP* T9 L068FF t 

TITLE »PASSW8R0 COMMAND VERB* 



Hoi 181 
1377 
1378 

1379 

1380 
1381 
1382 
1383 
1384 
1385 
1386 
1387 

1388 
1389 
1390 

1* 

1391 
1392 
1393 
1# 
?♦ 
1394 
1395 
1396 
1397 
1398 
1399 
1400 

1401 
140? 
1403 
1404 
140S 
1406 
1407 
1408 
1409 
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PASSWORD C8MMAND VERB 



9* 



0? 
C? 
0? 
OP 
0? 
0? 
0? 
0? 



02 
0030B 
0030C 
003cD 
003cE 
0030F 
00310 
00311 
00312 



0030 b 

3&10OG00 X 

3^200001 N 
22200004 A 

6*000830 
0*30MOO N 

3<2lonooo X 

32200001 N 
6 A A0048A 



0? 
0? 

02 
0? 
C? 

0? 

02 



00313 
00314 
00315 
00316 
00317 
00318 
00319 



21600068 A 
6*300318 
2SC30507 A 

0*3onl00 N 
6*000335 
6*Boo342 
0*300100 N 



♦♦###*#♦* 

#F# 
♦ F* 
#F« 

#F# 
*F# 
#F# 

#F* 
#F# 
#F» 

*F« 
♦F# 

PASSWORD 



###*«#*«#**##«#***###*• *#t***#ft«**«ft«*ft* *##*### #########«*##### 
NAME! PASSW8RD * 

PURPQSFJ THE PASSW8RD COMMAND IS USED BY THE TERMINAL ft 

user je chanqf his L8G8n PASsweRDt security is 

ADDITI8NALLY ENF8RCED BY REQUIRING THE 8LD PASSW8RQ 
T8 BE SUPPLIED BEF8RE THE NEW SNE IS ENTERED, 
DESCRIPTI8NI THE 8USERS REC8RD IS READ IN AND THe FIRST 

FIELD SUPPLIED BY THE USER IS C8MP*rED WITH THE 
CURRENT PASSWORD. IF IT MATCHES* THE SEC9ND FIELD 
IS ST8RED AND THE tUSERS REC8RD IS WRITTEN 8UTt \Y 
THE PASSWBRD SCRAMBLER IS INCLUDED IN THE SYSTEM IT 



SAVE REGS F8R SCAN 

F8R 8PEN IN8UT 

READ USER REC8RD INT8 TELSTACK 

SAVE BUFFER ADDRESS 

REST8RE SCANfS REQS 



* 
* 
# 
* 
« 
* 
# 

IS INvSKEDt" "' ~ ~~ " ""*" ' # 
«***«*«#«##««*##*#»««««#« #*#*«»»«##« ft #« ft *****##«**^ ft #*#*««*ft*#ft 
EQU * 
STWiRl SFTBUF 
STW#R? SETBUF*1 
LliR? 4 
BALjRo RD|USERS 
PUSH R3 
LWiRi SETBUF 

LWjR? setbuf*i 

BALjSR^ GETFIELD SCAN F8R 8LD PASStfQRD 

«*«#-*#««««•*««#*#**##«*#** #«**#***#««*«#•» «##*t«**### #**### «•*«###*#«**« 
#E« ERR8R! GR8UP 03* C8DEi05* SUBC8DEf07 * 

*E* DESCRIPTI8NS THE FIRST FIELD 8F THE PASSW8RD C&MMAND DJDNfT* 
*E* END WITH A C8MMA. THIS PR8BABLY MEANS THAT THE USER * 

*E* IS N8T AWARE 8F THE NEW (WITH D00> F8RMAT ®F THE * 

♦E# PASSW8RD CSMMANDi HE MUST SUPPLY »LD*NEW PASSW9RD * 

C!iR6 '** WILL NEW PASSW8RP F8LL9W 

BE S*4 YESt.t 

LI*D1 Xt030BC7t N8j ERR0R C8DE & SUBC8DE 

PULL R3 REST8RF BUFFER POINTER 

B PASSCLUP G8 TELL USER & CLEANUP 

BAL*SRa SCRAMBLE N8# SCRAMBLE 8LD F8R COMPARE 

PULL R3 PEST8RE BUFFER ADDRESS 



MOi 



14 
14 
14 
14 



14 

14 
14 
14 
14 
14 
14 
14 
14 
14 

14 
14 

14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 

14 
14 
14 
14 



181.16 
10 
11 
1? 

13 
1# 

3* 
IS 
16 
17 
18 
19 
20 

21 
22 
23 
24 

25 

So 

27 

2ft 
29 

30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
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PASSWORD COMMAND VERB 
irRR0R* GROUP 03j C0DE*05# SUBC0DEP05 
DESCRIPTION! THE 'OLD! PASSWORD SUPPLIED BY TME 

USER DOESNfT MATCH THE CURRENT JySERS RECORD. 



93 



02 
02 
0? 

02 
0? 
02 



02 

02 



02 
02 
02 

02 
02 

02 
02 
02 
02 
02 
02 
02 
02 
02 



0031A 
0031B 
0031C 
0031D 
0031E 
0031F 



00320 
00321 



00322 
00323 
00324 
00325 
0O326 

00327 
00328 
00329 
0032A 

0032B 
0032C 
C032D 
0032E 

0032F 



3XC60006 A 
6»30O3tE 
3JD60007 A 

6*300320 
28C3n505 A 

6*000335 



05*300100 N 
6AA0048A 



21700008 A 
6*200327 
0*300100 N 
2SC3n5Q6 A 
6*000335 

6*Bqo342 
0*300100 N 
3SC60006 A 
3&D6O007 A 

0^200020 A 
2 A l0o7A4 
2 tt l60000 X 
2SAQO000 A 
0*160000 X 



« 
# 

« 



* New 

#e* frror: 
#e* descripti 

Cl*R7 
BUE 
PULL 
LI#Di 

B 

BAL/SR4 
PULL 

WRjUSERS STW#Dl 
STWjD? 
LCI 
LM,Rt 
STMiRi 
LI/SR3 
CALlM 

*#*##*###*####*##♦ 

*E# FRRORJ 

#E# 

*E* DESCRIPTT 



DOES FIRST WORD MATCH 

NOjERROR 

MOW ABgUT SEC8ND W0RD 

MATCHES 0»K# 

ERROR CODE £ SUBCftDE 

NO MATCHEE# NO CHANGEE 



SAVE BUFFER ?TR 

SCAN FOR NEW PASS^Brd 

GROUP 03j CODEpOSj SUBC0DE§»06 * 

ONI THE PASSWORD IS GREATE* THAN g CHARACTERS * 

8 LEGAL SUE 

•*4 YES 

R3 TO EVEN UP STACK 

X»03Q5Q6« NO* ERROR CODE $, SUBCODE 

PASSCLUP CLEAN UP & TELL USER 



CW,Dl 


6j R3 


BNE 


$+3 


CW,D? 


7*R3 


BE 


$+3 


Ll#Dl 


Xt030505t 


B 


PASSCLUP 


AN F6R 


NFW PASSWORD 


PUSH 


R3 


BAL#SR3 


GETFIELD 



SCRAMBLE NEW PASSWORD 

STORE NEW PASSWOKD 

REPLACE WORDS & 1 
OF READ FPT FOK WRITf 
WITH DEFAULT KEY. 
CLEAR SR3 BEFORE WRITE 
WRITE JUSERS RECORD BACK 



SCRAMBLE 
R3 

6jR3 
7jR3 
2 

WUSR 

LBGSIZE#R3 


L0GSI2E#R3 

####♦###**####♦####»«#################♦#########*#*### 

* 

GROUP 03j CODEiOS* SUBC0D£f03 * 

ONI * 



HOI 



18! 
1445 
1446 
14 47 
1448 
1449 

1450 
1451 
145? 

1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
146? 
1463 
1464 
1465 
1466 
14 67 
1468 

1469 

1470 
1471 
147? 
1473 
1474 
1475 
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0? 00330 
C? 00331 
C? 00332 
C? 00333 



0? 00334 



02 
02 00335 
0? 00336 
0? 00337 
0? 00338 
C? 00339 
0? 0033A 
02 0033B 
0? 0033C 
0? 0033D 
0? 0033E 
02 0033^ 
02 00340 
0? 00341 



21A0OOOO A 
6830O334 

22C3n5o3 A 
6*00086C 



22C30504 A 



0033S 

6 A 40OD00 X 
0220OC2O A 
2*D0O000 06 
2 b D6r>006 A 
225FFFFA N 
1^500100 N 
78200000 X 
2U2FFFFF A 
28100106 Ni 
6A40O9D2 
2800O01D 

6*000000 X 
E*000008 A 



#E# 

*E* 

**#«****♦«*««*#«« 

Cl'SRS 

BE 

LUOi 



#E# FRR8R; 
*E* DESCRIPT 

#E# 

#E# 

LliDi 

* 

• THIS IS C^MMftN 

PASSCUUP FGU 

BAL*R4 

LCI 

LM#D2 

STMjD? 

BUMP 

L8#R2 

Al#R2 

LI^Rl 

BAL1R4 

LI#Rq 

e 

0PERR B 



PASSWORD C8MMAND VERB 9* 

WRITE ERR6R 8F S8M£ S8RT 8CCURRED W W 1LE * 

TRVING T8 WRITE 8USERS R&C8RD BACK* AB8RT* * 

PRESUMING CURRENT REC8RD UNALTERED* * 

##«########*#####♦#♦##♦#♦*######•»#######♦#####♦#♦♦#*##♦ 



$+3 N8 ERR8RS 8N WRITE 

Xt 030503! ERR8R C8DE £ SUBCODE 

RJUERR RSET STACK & G8 T8 CMN£RRl 

QR9UP 03* C6DEJ05, SUBC8DE«04 * 

I8NJ THIS IS N8T AN FRR8R C8NDITI8N. IT IS AN # 

INF8RMATIQN-8NLY MESSAGE T8 INQICATf SUCCESSFUL * 

C8MPLETI8N 8F PASSW8RD CHANGEt * 

##«♦#♦#####*####*#######♦♦####♦########♦#»**#####♦##♦♦# 

X»030504' ERRMSG KEY 

P8INT T8 CLEAN UP W/ ERR8R MSG 

$ 

FMTELCL 

2 

VERB2 

6#R3 

•<L8GSlZE+RWUSRSZ)jR5 



CL8SE MITEL 

BLANK 8UT PASSW8KD WHEREVER IT 

APPEARS IN C9RE 



CLEAN STACK 



JBICCARS 

• 1 

TELBUF 

BLANKBUF 

PROMPT 

T$ERR 

#SRl 



LENGTH 8F CMND 



BLANK C8MMANP BUFFER 
RETURN FOR TsERR 

ERR8R RETURN VECTBR 



Hot 
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\* 
1476 
U77 

H7ft 
1479 
1480 
1431 
148? 
1483 

1484 
148R 
1486 
1487 
1488 

1489 
1490 
1491 
149? 
1493 
1494 
149F! 
1496 
1497 
1498 

1499 

1* 
?* 

1501 
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PASSWORD COMMAND VERB 



9b 



02 
0? C0342 
0? 00343 
C? 00344 
0? 00345 
0? 00346 
C? 00347 
0? 00348 
0? 00349 
C? 0034A 
0? 00348 
0? 0034C 
0? 0034D 
0? 0034E 
0? 0034F 



0034S 

O^Booioo 
0*200100 

UCooooo 

6^300349 
22C0OG0O 
28D0O000 
6*000340 

22600000 
6^300340 

6 A BonoOO 
12CQ0006 

0*200100 
O^BooiOO 
E«000008 



N 
N 
06 

A 
A 



PAGE 

#D* NAME! SCRAMBLE * 

*D* CALL! BAL/SR3 SCRAMBLE * 

*D* REGISTFRSJ R3*R4jR6,R7j SR4 ARE CL8B8ER&P * 

*D* INPUT* TEXT PASSWORD IN Di-Dg * 

*D* DATA? VERB* - DWD OF BLANKS * 

#D# OUTPUT: ENCODED PASSWORD IN Dl«D? * 

*D* IKTERFaCFI SCRAM . SREFtED PASSWORD SCRAMBLER * 

*D# DESCRTPTI8NJ IF INPUT IS NULL (BLANKS), RETURN * 

•D* ZEROESi OTHERWISE* CH^CK F6R SCRAM INCLUDED. IF * 

*D# PRESENT* SCRAMBLE PASSWORDt OTHERWISE* EXIT. ♦ 
#######*####♦###♦###♦############# *«*«#«*««*«««*###«•**#**#* ######*#*##* 

SCRAMBLE FGU * 

SR4 



SCRAMBLX 



FGU 

PUSH 

PUSH 

CD*Dl 

RNE 

LI*Dl 

Ll#0? 

B 

LI*R6 

BEZ 

BAL*SP< 
LD#Di 

PULL 
PULL 
B 
TITLE 



R? 
VFRB2 

$♦4 





SCRAMBLX 
SCRAM 

SCRAMBLX 

SCRAM 

R6 

R? 

SR4 

*SR4 

tSHQW COMMAND' 



SAVE LINK 

IS INPUT NULL 
N© 

YES* 
RETURN 
ZEROES 
IS SCRAM INCLUDED 
NO* RETURN 

ENCODED PASSWORD TO Di«D2 



RETURN 



HOI 



181 

150? 
I5O3 
1504 
1505 
1506 
1SC7 
1508 
1509 

1510 
1511 
151? 

1# 
1514 
1515 
1516 
1517 
1518 
1519 

1520 
1521 
152? 
1523 
1524 
1525 
1526 
1527 
1528 
1529 

1530 
1# 

?* 
1531 
153? 
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02 
C? 00350 
0? 00351 
0? 00352 
0? 00353 
0? 00354 
C2 00355 
0? 00356 
02 C0357 
C? 00358 
0? 00359 
0? 0035A 
0? 0035B 
C? C035C 
0? 0035D 
0? 0035E 
02 0035F 
0? 00360 
02 00361 
0? 00362 
0? C0363 
02 00364 
0? 00365 
0? 00366 
0? 00367 
0? 00368 
C? 00369 



00350 

22300001 A 
^ A 300000 X 
6*300355 
31F00013 N 
6^300833 
2*200001 A 
6^000830 
6A400000 X 
28400000 A 
3*H60G06 A 

3^460007 A 

048007D1 

6^80O36A 

2*4qO001 N 
2U3FFFFF A 

2U9FFFFF A 
B228OO03 A 
B^280009 A 
64400360 
2<J5FFFFA N 

l'JBonioo N 

2^C0OO0O A 
224001F4 A 
B5C80009 A 
12600746 
680000C8 



SH8W C8MMAND 
THE SH©w/ CSMMaND READS THE JUSERS ENTRY F8R THIS USjrR 
AND MeVpS IT T8 A C8MM8N PaGe P8R THE SH8W PR0CESS»R 
AFTER MOVING tHf REC9RD T8 THf C8MM0N PAGE IT CALLS 
SH0W VU AN INTERP EXTT. THE 'PASSW8RD* C8DE HAS BEEN 
GREATLY UTILIZED F6R THE READING 8F THE IUSErS FILE. 



96 



* 
SH0W 



FQU 

LI#R3 

LS/R3 

BNEZ 

CW#D4 

BNE 

LIjR2 

BAL#Ro 

BAL#R4 

l.I#R4 

STWjR4 

STW#R4 

CALl,8 

BCS#8 

LI1R4 

Al#R3 

Al#SR2 

LW/R2 

STW#R? 
BDR#R4 
BUMP 

Ll'Dl 
LI*R4 
STWjDi 
LD*R6 

B 



JSTEP 
JlTELFLGS 

• ♦3 
IOUIT 
BK8PT0 
1 

RDlUSERS 
FMTELCL 

6jR3 

7#R3 

GC8MNPG 
SH8WXX 
L8GSIZEM 
.1 

• 1 

#R3#R4 
#SR2#R4 

•(L6QSIZE*RWUSRSZ)jRS 



ARE WE G0ING T& CL8BBER 

THE USERtS PRUM W/ SH&'W 
N8# 8K T0 CALL SHflW 
YES# DID WE ASK UUIT 
N&* ASK IT««i 
SET READ M8DE T8 HIM» 
READ IN JUSERS RkC8RD 
CL8SE m:tel 

ZER8 PASSWORD 

FOR SECURITY 
GET A C0MMON PAGE 
CANT GET PAGE 
SET UP COUNTER 



GET W8RD FR6M STACK 
£ M8VE T8 C8MM8N pAQE 

CLEAN STACK 





500 
*$R2jR4 

XSH8W 

GR8UP? 



D8NT SCAN CMMAND 
###TEMP### 
#*#TEMP#** 
CMMAND T8 R6&R7 
G8 L8AD AND LINK 



HOI 
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1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
154? 

1543 
1544 
1545 



0? 0036A 

C? 00368 
C? 0036C 
0£ 00360 



225FFFFA N 

13500100 N 
22C30300 A 
6**00o70E 



SH8w C8HMAND 97 

PAGE 
#♦#########«##♦♦###########*###«♦#«######♦######♦###########*#####*####♦ 

*E* ERR8RS # 

*E* GR8UP 03, C8DF"03, SUBCSDEiOO * 

*E* DESCR1PTI8NJ * 

#E# WE CeuLDNfT GET A C8MM8N PAGE T6 PASS THE SUSERS * 

*E* REC8RD T8 SH8W t N8TE • TELSTACK IS CLEANED BE^RE * 

♦E* ERR8R MESSAGE. * 
######♦#«♦#####*##♦#♦##########♦##*##*#*####♦###*##♦#♦##*#######*#*♦*#*# 

SH8WXX BUMP *(L8GSIZE4RWUSRSZ)iR5 CLEAN STACK 



Ll#Dl Xi 030300 » 

B CMNERRl 

TITLE fUHERE C8MMAKD V£RB» 



ERR8R C8DE & SUBC8DE 



HOI 



1*1 
1546 
1547 
1548 
1549 
1550 
1551 
1553 
1556 
1557 
1558 
1559 
1560 
1561 
156? 
1563 

1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1R7P 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 

1581 

158? 
1583 
1584 

1585 
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02 
0? 0036E 
0? 0036F 
0? 0037Q 
0? 00371 
0? 00372 
0? 00373 
0? 00374 
0? 00375 

0? 00376 
0? 00377 
0? 00378 
0? 00379 
0? 0037A 
0? 0037B 
0? C037C 
02 C037D 
02 0037E 
0? 0037F 
0? 00380 
0? 00381 
0? 00382 
0? 00383 
0? 00384 
0? 00385 
0? 00386 

0? 00387 
0? 00388 
0? 00389 
0? 0038A 
0? 0038B 



0036t 

32Conooo X 

21Cono02 A 
6*4or>6Bl 

21100001 A 
6*200681 

6*400000 X 
38300100 N 
20300014 A 

38ConB2C 
3SC6O000 A 
3SC6OG01 A 
3SC600G2 A 
3SC6O003 A 
35C60004 A 
22CQO000 A 
0^300100 N 
6AA0O8A0 
2160O06B A 
6*3on8F7 

217oriO08 A 
6»20O8F7 

21700000 A 
6«2008F7 

^2300100 N 
2^30000? A 

6AA0O8A0 
2170O00C A 
6*20OSF7 
217QO000 A 
6»2on8F7 



# 

# 
» 

* 

WHERE 



WHERE C8MMAND VERB 9* 

THE WMFRF COMMAND TS USED T© SEE TF A SPECIFIED USER 
IS L8GGED 8N T8 THE SYSTEM. THIS IS D8NE BY CHECKING 
THE FILE :L8GD«ISYS BUILT BY L8G8Nj WHICH CONTAINS A REC8RD 
F8R EACH 8NLINE USER. THIS FILE IS READ N8NE, WRITE 
N8NE# R8 WE MUST G8 T8 X»CO» PRIV, lEVEt T8 READ IT. 



WHSC 



ECU 

LW/D1 

CI#D1 

BAZ 

CI#Ri 

BLE 

BAL#R4 

LW*R3 

Al*R3 

LW/Dl 

STWjDl 

STWjDI 

STW,D1 

STWjDl 

STW#Dl 

LIjDi 

PUSH 

BAL/SR3 

CI#R6 

BNE 

CI/R7 

BG 

CIiR7 
BLE 
LW,R3 
Al/Rs 

BALiSR3 

CI/R7 

BG 

CI/R7 

BLE 



SJC8UP 

2 

GIVEMFH 

1 
GIVEHEH 

FMTELCL 

TELSTACK 

20 

• t f 

OjR3 

1#R3 

2*R3 

3*R3 

4,R3 

Q 

R3 

SCAN 

'* » 

SYNTAX 

8 

SYNTAX 


SYNTAX 

♦TELSTACK 

2 

SCAN 

1? 

SYNTAX 



SYNTAX 



WAYSt.. 
BUFFER AREA 

BECAUSE 8THER 



SEE IF FEATURE ENABLED 

THE 2 BIT IN S|C»UP 

MUST BE SET» 

WE MUST HAVE AN ARGUMENT 

8R WE C8MPLAIN, 

MAKE SURE MITEL CL8SED. 

A W8RK AREA 

BVER HERE A 

PRESET THIS 

T8 BLANKSt 

WE ADDED 20 

ROUTINES* SUCH AS SCAN* 

USE THE STACK t8&. 



REMEMBER THAT* 

BETTER END 0N A C8MMA 
BR I W8NT LIKE Y&U. 

T88 L8NG 

T88 SH8RT 

TCP OF STACK 

NOW D8 3 WORD NAMf 



GUESS IT L88KS G08D. 



HOI 1AS36 SEP 08* 

1586 0? 0038C 

1587 0? 0038D 

1588 c? 0038E 

1589 0? C038F 

1590 0? 00390 

1591 0? 0C391 
1# 0? 00392 

159? OP 00393 

1593 OP 00394 

1594 OP 00395 

1595 OP 00396 

1596 0? 00397 

1597 CP 00398 

1598 OP 00399 

1599 0? 0039A 

1600 OP 0039B 

1601 0? 0039C 
160P OP 0039D 

1603 OP Q039E 

1604 0? 0039F 
16C5 0? 003AC 
1606 C? 003A1 
16C7 OP 003A2 

1608 OP 003A3 

1609 0? 003A4 

1610 0? 003A5 

1611 0? 003A6 
161? 0? 003A7 

1613 0? 003A8 

1614 0? 003A9 

1615 0? 003AA 
0? 003AB 

1616 0? 003AC 

1617 0? 003AD 

1618 0? C03AE 

1619 OP 003AF 

1620 0? 003BQ 



»75 

72FonCOO X 

22loooCo A 

7bionooo X 

0»D00100 N 
22E0OC00 A 
Q*1003C4 
75F0O000 

022onoso 
A*oooooD 

21D00001 
6*400398 
2UDFFFFF A 
225qoo5C A 

28600003 A 
0*l0O3BE 

FX5CO00D A 

6930039A 

20D00001 

9100O00D 

6*300397 

2UD0O002 

912OO00D 

6«3oo3A5 

2UDFFFFD 

6»00039A 

2UD0O00P 
BUOOOOD 
6**3oo3AA 
2UDFFFFB 
6*00039A 
0220O030 

O^lOOlOO 
2UDFFFFA 

3230OB2D 
B53QO000 
3210O00D 
22200006 



WHERE1 



WHERE2 



WHERE3 





WHERE C6MMAND 


LB#15 


UB1PRIV 


U#l 


XtCO» 


STBil 


JBJPRIV 


PULL 


13 


Ll/14 





CAL1#1 


WHOPEN 


STB/D4 


JBJPPIV 


LCI 


5 


LM,Q 


♦13 


CI* 13 


1 


BAN* 


$+2 


AIj13 


• 1 


LI#5 


!#! 


Ll/6 


3 


CALlil 


THREAD 


CB#5 


#13#6 


BNE 


WHCRE3 


Al*13 


1 


CD,Q 


♦13 


BNE 


WHERE3.3 


Al;13 


2 


CD* 2 


• 13 


BE 


$♦3 


AIj13 


• 3 


B 


WHERE3 


Al#13 


2 


CW#4 


#13 


BE 


*+3 


Al#l3 


• 5 


B 


WHERE3 


PUSH 


3jR1 


Alil3 


• 6 


LW,3 


tt 8N 1 


STW#3 


#13 


LW#l 


13 


LI*2 


6 



VERB 



THIS IS THE USERS pRiy LEVEL 
THIS IS WHAT I N£ED 
• tt* «P3KE* (in 

BUR ARG AREA 
HIT C6UNTER 
©PEN ME THIS FILL 
RESET USER PRIV LFVELt 
FAR 9UT* ITS 8PEN... 
GET THE 5 WD NAMfc+ACCT 
IS BUFFER 8N D»UbLEW8RD 
I D9NT WANT IT 8N 8NE. 
IT IS N6W.,.i. t .t 
L8GGED 8N IN0ICAT8R 
BYTE INDEX F8R COMPARE 
READ ME A REC8RDt 

IS IT L8GGED 8N 

N8PEt 

M8VE T8 D8UBLEW&RD. 

CHECK FIRST 2 W8«DS. 

WHY DIDNT S8MEB80Y PUT IN 

A C8MPARE MULTIPIF WlT W 

ALL THE 8THER MULTIPLE W8RD 

INSTRUCTl8NStt t t» 

DIDNT HIT 8N WDS 3*4 

DEC PTR AND SPLIT. 



9$ 



LAST W8RD F8R 
WE G8T 8NEt 



A MATCH. 



SAVE THIS STUFF 

I KN8W, I 8NLY AtfDED 5 
BIT HM G8INV3 T8 P8KE THJS 
IN BEF8RE THE LINF NUMBERt 
BUFFER ADDRESS. 
AND LENGTH 



HOI 



18 J 36 < 


SEP 08, 


♦75 








WHERE C8MMAND VERB 


1621 


0? 


G03B1 


0^100790 






CALl# 1 


WRITE 


162? 


0? 


00352 


2UD0O001 


A 




Al#13 


1 


1623 


0? 


003B3 


2UEonooi 


A 




AIj14 


1 


1624 


0? 


003B4 


022ono3o 


A 




PULL 


3iRl 




0? 


0O3B5 


A 100100 


N 








1625 


C? 


003B6 


6*00n39A 






6 


WHEPE3 


1* 


0? 


00387 


6^400000 


X 


WHERE4 


BAL*R4 


FMTELCL 


1628 


0? 


003B8 


21E0O00O 


A 




CI#14 





1629 


0? 


003B9 


6930DC1D 






BNE 


PR8MPT 


1630 


0? 


003BA 


2210O75D 






LI/Ri 


N6NE 


1631 


0? 


003B8 


22200004 


A 




LI#R? 


4 


163? 


0? 


003BC 


0Mon79o 






CALlM 


WRITE 


1633 


0? 


C03BD 


6»oonoiD 






B 


PR8MPT 


1642 










# 






1643 










« 


READ A RFC»RD 


1644 










« 






1645 


0? 


003BE 


10000133 


N 


wHREAD 


GEN,8jJ?4 


X»10»jMJTFL 


1646 


0? 


003BF 


Fuoonoio 


A 




DATA 


XfF0000010» I 


1647 


0? 
02 


003Cq 
003C1 


oaoonaDs 

0U00O3D5 






DATA 


WHERR#WHERR 1 


1648 


0? 


003C2 


8U00O00D 


A 




DATA 


XtSOOOOOODt 1 


1649 


0? 


003C3 


0U00OO2C 


A 




DATA 


44 < 


1650 










# 






1651 










* 


ePEN the 


SL8SD FILE 


165? 










« 






1653 


C? 


003C4 


1*000133 


N 


WM&PEN 


GENj8#?4 


Xtl4»*MJTFL 


1654 


0? 


003C5 


F^40O009 


A 




DATA 


XtFF400009f 


1655 


0? 

0? 


003C6 
003C7 


0U0OO3E4 
0U00O3E4 






DATA 


WHERRljWHFRRl l 


1656 


0? 


003C8 


dooonooO 


A 




DATA 


Xt8000000Dt ! 


1657 


0? 


C03C9 


0U00O02C 


A 




DATA 


44 j 


1658 


0? 


C03CA 


OOOonooA 


A 




DATA 


10 


1659 


c? 


003CB 


oooonooi 


A 




DATA 


1 


1660 


0? 


003CC 


0U00O001 


A 




DATA 


1 


1661 


0? 


C03CD 


0Q00O301 


A 




DATA 


Xf 301 ' ! 


166? 


0? 


C03CE 


0000OO02 


A 




DATA 


2 


1663 


0? 


003CF 


0J00OP02 


A 




GEN/8j»#Sj8 1#0*2'? 



F8UND 8NE F8R Y8Ut 
REMEMBER THAT WE F8UND 8NE. 



G8 L88K F8R M8RE# 

F8RCE DCB CL8SEDt 

FIND ANYBSDYittt 

YUP. G66D F8R Y8U. 

S8RRY, N8B8DY NAMED J8e 

AR8UND N8W.,.., 

TRY AGAIN LATER#t.*.t 



100 



Pl*P4* WAIT« 

ERR AND ABN 

BUF. #13 
RECLt44 BYTES 



ERR AND ABN 

BUFp #13 
RECLi44 BYTES 
TRlESiio 
8RG.C8NSEC (ITS 
SEQUEN 
MSDEilNj SNARE 



KEALLY KEYED) 



Hoi 18*36 SEP 08* 


'75 








WHERE C8MMAND 


VERB 


1664 


0? 

0? 


00300 
003D1 


0^7AH3D6 
C7C44G40 


A 
A 




TEXTC 


»IL0G0» 


NAME" JL8GD 


1665 


0? 


003D2 


02010202 


A 




GEN#8,**8j8 2#li2*P 




1666 


c? 

0? 


003D3 
00304 


7AE2F8E? 
4U404040 


A 
A 




TEXT 


USYS i 


ACCTp jsys 


1667 










* 








1669 










# 


ERR3R HANDLER F8R WHERF 


FILE 8PERATl9NSt 


1669 










« 








1670 


0? 


003DS 


7270OO0A 


A 


WHERR 


LB, 7 


10 


L88K AT MAJ6R C8L>E 


1671 


0? 


C03D6 


21700006 


A 




CI#7 


6 


END 8F FILE HIT 


167? 


c? 


00307 


6*300387 






BE 


WHERE4 


YES. G8 CLEAN UP* 


1673 


0? 


003D8 


21EQO000 


A 




CI/14 





HAVE WE BEEN HERE BEF8RE 


1* 


0? 


003D9 


6^100367 






BL 


WHERE4 


YUP* SCRAM».t 


167P! 


0? 


003DA 


2210O3DF 






L Is 1 


WHM 




1676 


0? 


003DB 


22200012 


A 




LUZ 


18 




1677 


0? 


003DC 


0*100790 






CALlil 


WRITE 


ERR8R. C8P 8UTt 


167* 


0? 


003DD 


22E0O001 


A 




LI# 14 


1 


N8j WE DIDNTt.. 


1679 


0? 


0030E 


6»00O3B7 






B 


WHERE4 




1680 


0? 
09 

0? 
02 

0? 


0030F 
OO3E0 
003E1 
003E2 
003E3 


C2E4F2E8 
4QD60940 
C6C903CS 
4UC509D9 
D6D94040 


A 

A 
A 

A 
A 


WHM 


TEXT 


tBUSY 8R FILE 


ERR8Rf 


1681 










# 








168? 










# 


AND F8R 


QPEN PR88LFMS 




1683 










• 








1684 


c? 


QC3E4 


2210O3EA 




WHERR 1 


LliRl 


GASP 




1685 


0? 


003E5 


22200019 


A 




LI#Rp 


35 




1* 


0? 


C03E6 


75F0OOO0 


X 




STB#D4 


JBJPRIV 


RESET PRIV L£VEL 


?* 


0? 


003E7 


22E0O001 


A 




LI#D3 


1 


SET FLAG S8 WE D&NT PRfN 


1686 


0? 


003E8 


4 100790 






CAL1#1 


WRITE 


C8MPLAIN 


1* 


0? 


003E9 


6«00O3B7 






B 


WHERE4 


AND CUT 8UT»tt 


1688 


0? 
0? 
0? 
0? 

c? 


003EA 
003E8 
003EC 
003ED 
003EE 


C3C1D5DS 
D6E340C1 
C3C3C5E2 

E2407AD3 
D6C7C440 


A 
A 

A 
A 
A 


GASP 


TEXT 


fCANNQT ACCESS 


SL8GD FILEf 



101 



tN8NE» 



HOI 18S36 SEP 08* '75 WHERE C8MMAND VERB 1U2 

0? 003EF C*C9MC5 A 
1689 TITLE ITABS C8MMAND VERBf 



HOI 



181 

l69o 

1691 
169? 
1693 
1694 
16955 

1696 
1697 

1698 
1699 

1700 
1701 
170? 
1703 
1704 
1705 
1706 
1707 

1708 
1709 

1710 
1711 
171? 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
17?0 
1721 
172? 
1723 

1724 



36 



SEP 08* 
02 
02 Q03FQ 

0? 003P"l 
0? 003F2 
0? 003F3 
02 003F4 
C? C03PS 
0? 0C3F6 
0? 003P7 
0? 003F8 
02 003F9 
02 003FA 
0? 003FB 
02 003FC 
0? C03FD 
0? C03FE 
02 003FF 
0? 00*00 
C? 00*01 

02 00*02 
C? 00*03 
C? 00*04 
0? 00*05 
0? 00*06 
C? 00*07 
02 00408 
0? 00*09 
0? 00*OA 
0? 00*08 
02 00*OC 
02 00*00 
0? 00*CE 
02 004CF 

0? 00*10 
02 00*11 
02 00*12 
0? 00*13 



'75 
003FU 

2160OCE2 A 
6«3on414 
21600C40 A 
6930O8F7 
32400100 N 

2U*000C1 A 
2250OC07 A 

13500100 N 
0^200070 A 
8 A 80O7B8 
2^880000 A 
2U*0OO02 A 
2*000000 A 
2£30OG0C A 
32C0O000 05 
6 a AqoRA0 
2170OC0O A 
6«3on8F7 
217QO003 A 
692008F7 

2U000001 A 
6ABoo982 
3*000003 A 
F&76O00* A 
21000010 A 
6920O8F7 
2160O06B A 
6S30O3FD 
21100001 A 
6»2onfiF7 
Ft)00OC04 A 
2U4FFFFF A 
8*100004 A 
2K5FFFF9 A 

13500100 N 
6»000010 



TABS C8MMAND VERB 

TABS FQU * 

CI*R6 X»E2* 

BE TABSl 

CI#R6 i f 

8NE SYNTAX 

L*jR4 TFLSTACK 

Al#R4 1 

BUMP 7,R5 

LCI 7 

LMjSRi tabpl 

STMjSRi 0^R4 

AI/R4 2 

LI*R0 

TA8SA LI#R3 01 

LW#D1 VFRBl 

BALjSR3 SCAN 

CI#R7 

BE SYNTAX 

CI#R7 3 

BG SYNTAX 

Al*Ro 1 

BALjSR4 OFCBIN 

STW#Rc R3 

STB#R7 #R4*R3 

CIjRO 16 

BG SYNTAX 

CIiR6 !,• 

BE TABSA 

CI#Rl 1 

BG SYNTAX 

STBjRq *R4 

Al#R4 •? 

CAL1M *R* 

BUMP -74R5 

B PROMPT 



1W3 



TABS INQUEIRY 
YESj BRANCH 
CHECK F8R SPACK 



CLEAR A C8UNT F8« TAB VALUES 



GET THE TAB VALUfc 
INSURE DATA 

ALL8W UP T8 3 CHARACTERS 

BUMP THE C8UNT 

C8NVERT THE VALUE T6 BINARY 

ST8RE THE VALUE IN PLIST 
TEST F8R LIMIT 

ANY M8RE 

YUR 

TEST FBR TRAILING GARBAGE 

N8PE-ST8RE C8UNT 
ISSUE MJDEVICE CA L 



NOl 



18*36 SEP 08, 


»75 








TABS C8MMAND 


VERB 


1785 










* 






6UTPUT CURRENT TABS 


1726 




02 


0G4l* 




TABS1 


FCU 


$ 




1727 


02 


00*1* 


223ono13 


N 




U'R3 


M»UC*19 


PT T© rND 8F TABS 


172ft 


02 


00*15 


227FFFFo 


A 




LNR7 


• 16 


INDEX BACK 


1729 


02 


00*16 


F2AEo003 


A 




LB/SR3 


*R3#R7 


ANY TAB ENTRIES 


1730 


02 


00*17 


6*30O4lC 






BKEZ 


TABS2 


YES 


1731 


02 


00*18 


22lon75D 






LI#Ri 


N©NE 


NB 


1732 


02 


00*19 


2220000* 


A 




L!#R2 


4 


BYTE CGUNT 


1733 


02 


00*1A 


0*100790 






CAL1*1 


WRITE 


OUTPUT N6NE MSSG 


1734 


02 


00*18 


6*00O0lD 






8 


PR6MPT 


PR8MPT 


1735 










# 








1736 




02 


Q041L 




TA8S2 


FCU 


$ 


DISPLAY TABS RBUTINE 


1737 


02 


00*1C 


32600100 


N 




LW#R6 


TFLSTACK 




1738 


02 


00*lD 


2U60OO01 


A 




Al#R6 


1 


SPACF 


1739 


02 

02 


C0*1E 
QO*iF 


22500010 
1^500100 


A 

N 




BUMP 


16#R5 


F8R 8UTPUT 


1740 


02 


00*20 


2200O06B 


A 




Ll*R0 


!# » 


C8MMA BETWEEN ENTRIES 


1741 


02 


00*21 


22200000 


A 




LI#«2 





INITIAL BYTE C8UNT 


1742 


02 


00*22 


F2CE0003 


A 


TABS4 


LBjOi 


#R3#R7 


GET TAB ENTRY 


1743 


02 


00423 


6*300435 






BEZ 


TABS3 


N8 ENTRY* GIVEUP 


1744 


02 


00*24 


6*800979 






BAL#SR4 


BINDECBCD 


CBNVERT TB DECIMAL 


174R 


02 


00425 


22400000 


A 




LliR4 







1746 


02 


00*26 


7258000D 


A 


TA8S5 


LBiRS 


D2jR4 




1747 


02 


00*27 


2150O0F0 


A 




C!#R5 


»0» 


IS DATA A ZER8 


1748 


02 


00*28 


6^300428 






BNE 


TABS6 




1749 


02 


00*29 


2U*00001 


A 




Al#P4 


1 




1750 


02 


00*2A 


6*000426 






C5 


TABS5 




1751 


02 


00*2B 


F&540006 


A 


TASS6 


STB # Rr 


*R6#R? 




1752 


C? 


C0*2C 


2U20O001 


A 




AI#R2 


1 




1753 


02 


00*20 


2U40O001 


A 




AI#R4 


1 




1754 


02 


00*2E 


21400004 


A 




CI#R4 


4 




1755 


02 


00*2F 


6*300432 






BE 


TA8S7 




1756 


02 


00*30 


72580000 


A 




LB/RR 


DpjR4 




1757 


02 


00*31 


6*000428 






B 


TABS6 




1758 










* 








1759 










♦ 








1760 


02 


00*32 


FS04O006 


A 


TABS7 


STB#R0 


#R6#R? 





104 



Hoi 



18836 REP 08* 


'75 






1761 


0? 00*33 


2uaonoci 


A 


AI'R? 


176? 


0? 00*34 


6b7on422 




8IR*R7 


1763 


02 


Q0435 


TABS3 


FQU 


1764 


0? 00*35 


2U2FFFFF 


A 


Al#R? 


1765 


0? 00*36 


220000*0 


A 


LI/RO 


1766 


0? 00*37 


Fb0*O00* 


A 


STBjRo 


1767 


0? 00*38 


32100006 


A 


LW,Ri 


1768 


0? 00*39 


0*100790 




CAll#i 


1769 


0? 00*3A 


225FFFF0 


A 


BUMP 




0? 00*3B 


13500100 


N 




1770 


0? 00*3C 


6«00001D 




B 


1771 








TITLE 



TABS C9MMAND VERB 

1 

TABS* 

$ 

•1 
t t 

#R6#Rp 

R6 

WRITE 

•16#R5 



1U5 



BLANK 

BUFFER ADDR Id Rl 

6utput t6 terminal 
even up 



PROMPT PR8MPT 

fPAQE C8MMAND VERBf 



Hoi 



18 
177? 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
178? 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 



J 36 SEP 08/ '75 



C2 
0? 0Q43D 
0? GQ43E 
0? C043F 

o? ocmo 

0? C0*41 
0? 00442 
0? 00443 
0? 00444 
0? 00445 
0? 00446 
0? 00447 



0043U 

21100000 A 

6*3008F7 

21600040 A 

6930O8F7 

6 a Aqo48A 

6 A Boo98? 

52A0O007 A 

6*3008F7 

22600000 N 

5&7COO00 A 

6**00O0lD 



PAGE COMMAND VERB 
# 

* PAGE ROUTINE 

* THE PAGE FUNCTI8N ALL6WS THE 9N.LIME USE* TO RESET THE 

* CURRENT PAGE N8. BUT9UT IN THE HEADER BY THE CSC ROUTINE 



106 



* 

PAGE 



PGU * 

CIjRI 

BE SYNTAX 

CI/R6 ! » 

BNE SYNTAX 

BALiSRq GETFIfTLD 

BAL#SR4 DECBIN 

LH/SR3 R7 

bnez syntax 

LliR6 JHJPC 

STHjR7 0jR6 

B PR8HPT 

TITLE 'PLATEN CBMMAND VERB? 



N8 INPUT F8LL6WS 



GET NUMBER 
C8NVERT T8 BIN 
SEE IF * Te BIG 
YES* TEL HIM 

PUT VALUE IN JIT 



HOI ign* SEP 08# 
1791 02 

179? 0? 00*48 

1793 OP 00449 

1794 0? Q044A 

1795 0? G044B 

1796 C? Q044C 

1797 0? 0044D 

1798 OP 0044E 

1799 0? 0044F 
1*00 0? 00450 
1801 OP 004*1 
180? OP 00452 

1803 0? 00453 

1804 OP 00454 

1805 0? 00455 

1806 OP 00456 

1807 0? 00457 

1808 02 

1809 0? 00*58 

1810 OP 00459 

1811 OP C045A 
181? CP 00458 

1813 c? 0045C 

1814 OP 0045C 

1815 0? 0045E 

1816 C? 00*5F 

1817 OP 00460 

1818 OP 00**1 

1819 0? 00462 

1820 0? 00463 

1821 0? 00464 
182? OP 00465 

1823 02 

1824 OP 00466 

1825 OP 00467 

1826 0? 00468 
1827 



*75 

00448 PLATEN rQU 

2l6oooD5 A CI#R6 

6*300469 BE 

2160O06B A CI#R6 

6830045A BE 

3*C00000 05 LW,D1 

2230OO0C A LI#R3 

6AA0O8AQ BAL#SR3 

21700000 A CI/R7 

6^300458 BE 

2170O003 A CI#R7 

6^200fiF7 BG 

6ABon982 BALjSR* 

2170008C A CI/R7 

6^2oo8F7 BG 

28500000 N LI#R5 

7&7AO00O A STB # R7 
00458 C6MMA FGU 

2X600068 A CI#R6 

6^300466 BNE 

2230O00C A LI#R3 

3SC0O000 05 LW#Dl 

6AA008A0 BAUSR3 

217QO00O A CI#R7 

683008F7 BE 

21700003 A CI#R7 

6920O8F7 BG 

6ABoo98g BAL,#SR4 

2170OCFF A CI/R7 

6»20O8F7 BG 

22600000 N LI/R6 

7S7CO000 A STBjR7 

00466 C8NE FGU 

2U0OC01 A CliRl 

6*2008F7 BG 

6800001D B 



PLATEN C8MMAND 

* 

t N t 

PLATEN1 

»# ' 

C8MMA+2 

VER81 

Dl 
SCAN 



CBMMA 

3 

SYNTAX 
DECBIK 

140 
SYNTAX 

JBJPCW 
0,*5 

'#' 

06NE 

D1 

VERBi 

SCAN 



SYNTAX 

3 

SYNTAX 

DECBIN 

P55 

SYNTAX 

JBILPP 

0jR6 

* 

1 

SYNTAX 

PR8MP? 



VERB IQ7 

IS IT A PLATEN ©N L Y 

BNLY LENGTH PRESENT 
IF YES G8 PROCESS IT 



WAS DATA PRESENT 

N8J G8 CHECK F8R C8MMA 

HE GETS 6NLY 3 C H ARACTERS 



width magnituoe test 

st8re width 

is a lenght flelp present 

N8J 

YESi GET LENtfHT 

INSURE DATA 

ARE M8RE THAN 3 CHARACTERS PRESENT 

CHECK LENGTH MAGNITUDE 



TEST F8R TRAILING J A ZZ 



Hnl 



18! 


36 < 


$EP 08j 


'75 








PLATEN C8MMAND VERB 


1828 










# PLATEN 


lj INF5RMS USER &F CURRENT 


PLATEN SETTINGS 


1829 










* 








1830 




02 


Q046* 




PLATEN1 


FQU 


£ 




1831 


0? 


00469 


222ooooC 


A 




Ll#R? 


1? 


message: byte size, 


183? 


0? 


00 4 6A 


32700100 


N 




LW^R7 


TELSTACK 


MAKE A BUFFER 


1833 


0? 


00*6B 


2U70OC01 


A 




AI/R7 


1 


8PEN THE STACK 


1834 


0? 
0? 


G0*6C 
0046D 


22100003 
1*100100 


A 

N 




BUMP 


3/Rl 




1835 


0? 


00^6E 


0*200030 


A 




LCI 


3 




1836 


c? 


0046F 


2 a 8qo757 






LM/SRi 


WIDTH 


GET WIDTH MESSAGE 


1837 


0? 


C0470 


A»8000C7 


A 




STM#SR1 


#R7 


PUT IN BUFFER 


1838 


0? 


00471 


28400002 


A 




LI#R* 


2 


SET UP Leep 


1839 


0? 


00472 


225QO000 


N 




LliRB 


JB|PCW 


GET WIDTH 


1840 


c? 


00473 


72CAn000 


A 


PLATEN2 


LBjDi 


o#R5 


GET DATA BYTE 


1841 


0? 


00474 


6 A Boo979 






BAL/SR4 


BINOECBCO 


CONVERT IT 


184? 


0? 


00475 


22000040 


A 




LI#R0 


t ' 




1843 


c? 


00476 


281FFFFC 


A 




LI#R1 


• 4 


C8UNT 


1844 


c? 


C0477 


7252OO0E 


A 


FLATEN3 


L8#R5 


D3#Rl 


PICK UP THE C6NVERTED BYTE 


1845 


0? 


00478 


2150O0Fo 


A 




CI*R5 


»0» 




1846 


0? 


00479 


6^300470 






BNE 


PLATEN4 




1847 


c? 


0047A 


7^02000E 


A 




STBjRo 


03iRl 


CHANGE LEADING ZER6 T0 BLANK 


1848 


0? 


0047B 


6&100477 






RIR#Rl 


PLATEN3 


CHECK NEXT DIGIT 


1849 


0? 


0047C 


2UD0O0BQ 


A 




AI#D2 


CiO'»C» * 


T8 PRINT ZER9 


1850 


0? 


0047D 


2U70O002 


A 


PLATEN4 


AliR7 


2 


INC BUFF POINTER 


1851 


0? 


0O47E 


B&DQ0007 


A 




STWiD2 


#R7 


* T» BUFFER 


185? 


o? 


0047? 


2U7FFFFf 


A 




AI#R7 


•2 


BACK T» BEGIN 6F BUFF 


1853 


c? 


00480 


3210OOC7 


A 




LW^Rl 


R7 


BUF ADDR TB Rl 


1854 


0? 


00481 


Q4100790 






CALl#l 


WRITE 


OUTPUT MESSG 


1855 


c? 


00*82 


2250O00O 


N 




LI#R5 


JBJLPP 


GET LINE/PAGE 


1856 


c? 


00483 


022QOO3O 


A 




LCI 


3 




1857 


0? 


00484 


2 A 80075A 






LM#SRi 


LLlNES 


GET LINES MESSAGE 


1858 


0? 


00485 


A»8oo007 


A 




STMjSRi 


#R7 




1859 


c? 


00486 


64400473 






BDRjR4 


PLATEN2 




i860 


0? 

c? 


00487 
00488 


221FFFFD 

l^iomoo 


A 

N 




BUMP 


•3#Rl 




1861 










# 








186? 


0? 


00489 


6*OOOC1D 






B 


PR8MPT 


PR9MPT 



1U8 



Hoi 18136 SEP 08# »75 
1863 
1864 

186?! 0? 0048A 

1866 CP 00*8B 

1867 0? CO^gC 

1868 0? 00^80 

1869 0? 0048E 

1870 0? 00^«E 

1871 0? 00*8F 

187? 0? 00*90 

1873 0? 00^91 

1874 0? 00^92 
187R 



PLATEN C8MMAND VERB 



109 



l8ConnOO 06 GETFIELD 
32Eoncoo 06 
2<*3or»OOC A 
6<*00D8A0 

GETACPAS 

022onn2o A 
2 A 9onooo x 

2£7onooo A 
28800000 A 

6*0AnO0O A 



LDiDl 


VERBg 


LW*Q3 


VERB2 


LI/R3 


Dl 


B 


SCAN EXIT 8N SR3 


PES 





LCI 


2 


LM/SR? 


JjACCN 


HiR7 





LI*SR1 





8 


0*R5 


TITLE 


t TERMINAL COMMAND VERBt 



MOl 



18136 < 


SEP 08j 


1876 




02 


1877 


0? 


00*93 


1878 


0? 


00*94 


1879 


0? 


00*95 


1880 


0? 


00*96 


1881 


0? 


00*97 


188? 


0? 


00*98 


1883 


0? 


00*99 


1884 


0? 


00*9A 


188B 


0? 


00*98 


1886 


0? 


00*9C 


1887 


0? 


00*90 


1888 


0? 


00*9E 


1889 


0? 


00*9F 


1890 


0? 


00*A0 


1891 


0? 


00*A1 


189? 


0? 


00*A2 


1* 


0? 


00*A3 


1893 


0? 


00*A4 


1894 


0? 


00*A5 


1895 


0? 


00*A6 


1896 


0? 


00*A7 


1897 


0? 


00*A7 


1898 


0? 


00*A8 


1899 


0? 


C0*A9 


1900 


0? 


00*AA 


1901 


0? 


00*A8 




0? 


0O*AC 


190? 


0? 


CO*AD 


1903 


0? 


CO*AE 


1904 


0? 


oo*af 


1905 


0? 


00*BQ 


1906 


0? 


00*Bl 


1907 


0? 


00*B2 


1908 


0? 


00*B3 


1909 


0? 


00*B* 


1910 


c? 


00*B5 



'75 

QQ493 

7Q2oncoo X 

692onOlD 
32C0D000 05 
2830O00C A 
6 A Aon8Ao 

2i7ooooo A 

6*3on4Do 
2X60H06B A 
6 8 30049E 

2Uonooi A 
6»2on«F7 

227oftOQC A 
3lCEn7F9 

6»3004A7 
2U7FFFFF A 
6«10049F 

**Conooo ° 6 

31C0OC1C 06 

6*30O4D0 

6«00n83B 

217onoO* A 
6*30O4Do 

329QM00 N 
20900001 A 
2#5onoo* A 
1^500100 N 
2850H00Q A 
38AAn513 
BbAAo009 A 
2U50nO01 A 
2150000* A 
69l0n4AE 
7«5Eo806 
22100003 A 
BS520009 A 



TERMINAL rQU 
LC 

BCS#? 
LW#Di 
LI#R3 
BALiSR-^ 
CI#R7 
BE 

CI#Ra 
BE 

CIjRi 
BG 

LURl 
SRCHTABi C*#Di 

BE 

AI/R7 

BGEZ 

6R#Di 
Cfc#Di 

BE 

B 
F6UNDP RES 

CliR7 

BE 

LfcjSR? 

AI/SRP 

BUMP 

LI#R5 

L^#SR3 

STWiSR-^ 

AI#R5 

CIjR5 

BL 

L6,R5 

LIjRi 

ST^jRB 



TERMINAL CSMMAND 
* 

JlUIT 
PR6MPT 
VFRBl 

Dl 

SCAN 

C6CSTAT 

**3 

1 

SYNTAX 

SZZETABt 

TERMTABi,R7 
F6UNDP 

• I 

SRCHTABi 
VFRBg 
LSTAT 

CeCSTAT 

TFRMERR 



4 

C6CSTAT 

TFLSTACK 

1 

4#R5 



TFRMTYPE^RB 

#SR2#R5 

1 

4 

**4 

TFRMTAB2,R7 

3 

#SR2#R1 



VERB 



110 



1GNBRE THIS CBMMAND IF 
NBN-CBC USER 

BLANKS 



*AS DATA PRESENT 

GIVE !CM STATUS 
, TERMINATED SCAN 

YEs^SKiP CHECKING 
INSURE N© TRAILING DATA 



C9NVERT P8SSi LCAsE STAT T8 UPPEK 
L8WER CASE tSTAT f US 



BRANCH IF LINE STATUS WAS REQUESTED 
GET STACK P&INTER 



8PEN STACK UP 



M8VE FPT T8 STACK 
F8R CHN6E CAL 



KEEP G8ING 
C8CTERM BYTE 
INQX INT© FPT 
6T9RE CBCTERM 



HOI 



18136 I 


;EP 08* 


♦75 






TERMINAL C8MMAND 


VERB 


1911 


0? 


00486 


725E080A 




lB,R5 


TERMTAB3#R7 


ALG8 BYTE 


1912 


0? 


00*87 


2Q1FFFFF 


A 


Al#Rl 


• 1 




1913 


C? 


00*B8 


2^500013 


A 


SLS1R5 


19 


SHIFT ALG8 *J P8STTI8N 


1914 


0? 


00489 


2^500038 


A 


Al#R5 


Xi38» 


+#38i SELECTION MASK 


1915 


C? 


Q0*BA 


Bb520009 


A 


STW*RS 


•SR2jR1 


ST8RE ALG8RITHM * 


1916 


02 


0O*BB 


2160O06B 


A 


CI/R6 


»# » 


ALG6R 8VERRI0E PRES 


1917 


C2 


00*BC 


6*30O*C8 




BNt 


CHNQTYPE 


N8# TAKE THE DEFAULT 


191* 


02 


00*BO 


32C0O000 


05 


LW,Dl 


VERB1 




1919 


0? 


00*BE 


2230O00C 


A 


LI/R3 


Dl 




1920 


0? 


CO*BF 


22100002 


A 


LI#Ri 


2 


DISP INT6 BUFFER 


1921 


0? 


QO*Co 


6*Aoo8Ao 




BALjSR^ 


SCAN 


SCAN FSR ALG0 BVtRIDE 


192? 


0? 


QO*Cl 


21700001 


A 


CI#R7 


1 




1923 


0? 


00*C2 


6^3008F7 




BNE 


SYNTAX 




1924 


0? 


00*C3 


6*B o982 




BALiSR4 


DECBIN 


C8NVERT DEC * 


1925 


0? 


004C4 


28500002 


A 


LI#R5 


2 


INDX INT8 FPT 


1926 


c? 


00*C5 


2S70O013 


A 


SLS#R7 


19 


SHIFT ALG8 #J P8SITI8N 


1927 


0? 


00*C6 


2U70O038 


A 


AliR7 


Xt38t 


♦ t38j SELECTION MASK 


1928 


0? 


Q0*C7 


Bb7AO009 


A 


STWjR7 


#SR2jR5 


PUT IN FPT 


1929 


0? 


oo*C8 


8*800009 


A 


CMNGTYPE CAL1#8 


♦SR2 




1930 


02 


00*C9 


6»8004CD 




BCS*8 


CHNQERR 


ERR8R EXIT 


1931 


0? 


QO*CA 


225FFFFC 


A 


BUMP 


• 4#R5 


REST8RE STACK 




0? 


00*CB 


13500100 


N 








193? 


0? 


oo*cc 


6*000010 




B 


PROMPT 




1933 


02 


GO*CD 


225FFFFC 


A 


CHNGERR BUMP 


• 4jR5 


MUST EVEN UP STACK 




02 


00*CE 


13500100 


N 








1934 


0? 


00*CF 


6*000838 




B 


TERMERR 


ERR8R RETURN 


1935 










« 






1936 










« 






1938 


c? 


004D0 


32900000 


F 


C8CSTAT 1>#SR£ 


MJUC*C8CLN 


GET THF C8C LINE NUMBER 


1939 


0? 


00*01 


6*B00961 




BAL#SR4 


HEX2EBC 


C8NVERT T8 HEX 


1940 


0? 


00*02 


3^100100 


N 


L**l 


TFLSTACK 




1941 


0? 


00*03 


20100001 


A 


AIM 


1 


A W8RK AREA 


194? 


0? 


00*0* 


022OOO3O 


A 


LCI 


3 




1943 


0? 


00*05 


2 A 30O720 




LM/3 


LMSG 




1944 


c? 


00*06 


22200001 


A 


Ll*2 


1 




1945 


02 


00*07 


5SD4000* 


A 


STH*D? 


4#2 




1946 


0? 


00*08 


0220O03O 


A 


LCI 


3 





111 



IN BITS 10*12 



IN BITS 10-12 



HOI 



1947 

1948 
1949 

1950 
1* 
P* 
3* 
4# 
1951 
l95p 
1* 

P* 

1953 

1954 

1955 
195ft 
1957 
1958 
1959 
i960 
1961 

1* 
1964 
1965 
1966 
1967 

1968 
1969 
1970 

1975 
1976 
1977 

1978 
1979 
1980 
1981 



CP 

CP 
0? 
0? 
0? 
G? 
OP 

0? 

CP 

c? 

0? 
0? 
OP 

OP 
0? 
0? 
OP 
0? 
0? 
0? 
0? 
0? 

c? 

0? 

c? 

OP 

c? 

CP 
0? 
0? 
Op 
OP 

c? 
c? 

OP 
0? 
0? 



SEP CS* 
004D9 
CO*DA 
0040B 
CO^DC 
QO^OD 

004DE 

Q04DF 

COfEO 
00*El 

00<*E3 
004E4 
00^E5 

C0^E6 
004E7 
OO^ES 
00*E9 
OO^EA 
OO^EB 
OO^EC 
OO^ED 
C04EE 
OO^EF 

OO^FO 
OO^Fi 

00^F2 
OO4F3 
Q0^F4 
00*F5 
00^F6 
004F7 
00*F8 
00^F9 
OO^FA 
004FB 
CO^FC 
OO^FD 



♦ 75 

2B3P0000 A 
2220OO09 A 
QM00790 
Q*8oo517 

3*000000 * 
6»20O4F6 
2X801000 A 

6»40O4F6 
7270O00A 

2$7oog7a 

21700002 
6*4004F3 
22100003 

71Ago000 
683OO4F3 
3290O00A 
6*B o96l 
32100100 
20100001 
0220O05o 
2*300574 
55D0O007 
0220OO5O 

2 tt 3?O000 
22200012 

6*0004F5 
2220000K A 
321E0568 
0^100790 
723QO008 A 
2O3FFFFC A 
6S?l0O4FA 
2^30O07F A 
32l6o5lC 
6^400510 
329Q053B 
22Aoo53B 



STM*3 
LliR? 
CALljl 
CALl*8 

MTW,o 

BLE 

CI, SRI 

BANZ 

LB,R7 

SLSjR7 

CI#R7 

BAZ 

Ll#l 

CBjSR3 

BE 

LW#SRP 

BAL/SR4 

LW#l 

AIM 

LCI 

LM*3 

STH#DP 

LCI 

STM#3 

LI*2 

B 
C6CSTAT0 LI,Rp 
C8CSTAT1 i>'R1 

CALIjI 
C8CSTAT2 LB#R3 

AI/R3 

BIZ 

SLS#R3 

BAL1R4 
LW'SRP 
LI#SR3 



TERMINAL C8MMAND 
Oil 
9 

WRITE 
CPCSTATC 

S:C9Up 

C5CSTAT2 
XflOOO* 

CBCSTAT2 

SR3 

• 6 
P 

CSCSTATO 
3 

MjUC*C8CLNj1 

C8CSTAT0 

SR3 

HEX2EBC 

TELSTACK 

1 

5 

MCPLO 

R7 

5 

0*1 
18 

CQCSTAT1«M 

14 

CPLMSGjR7 

WRITE 

SRi 

• 4 
i*2 
•1 

TTYPTAB+4,R3 
CSCPRT 

M8DECW 
MBDECW 



VERB 

PUT AWAY MSQ WITH LINE 

AND H8W LONG IT IS 

S8 D8 ITt 

N8w GET STATUS 8F LINE 

IS THE FEATURE ENABLED 

B/NQPEj D8NT TAL* AB8UT lT,.t 

IS THIS A 2741 LINE 

B/YUPi CANtT D8 C&UPLlNGot 

L88K AT C8UPLE STATUS 

IN UPPeR TW8 BITS 8F M8DE4 

IS THE C8UPLED BIT SET 

B/N8PE4 D8NT CHECK TIE BYTE. 

ARE WE C8UPLED T» S8MEB8PY 
IF EQUAL* N8PE.0. 
IF S8i GET 8F LINE CeUPLED 
T8i GRUNCH T8 CHARACTERS/ 



PLUNK IN LINE NUMBER 






LENGTH 8F MESSAGES 
WHICH MESSAGE 
PRINT IT OUTtt 
L88K AT C8CTCRM T8 



PRINT TERMINAL T Y PE 



HOI 



181 

198? 
1983 

1984 
1985 
198ft 
1987 
1988 
1989 
1990 
1991 
199? 

1993 

1994 

1995 
1996 
1997 
1998 
1999 
2000 
2001 
20C? 

poos 

2004 
2005 
200ft 

2007 
2008 
2009 
2010 
2011 
201? 
2013 
2014 
2015 
201ft 
2017 
2018 



36 SEP 08# 

0? 0O#FE 

OP 0O*FF 

0? 00^00 

C? 00501 

0? 00502 

OP 00503 

0? 00504 

0? 00505 

OP 00506 

OP 00507 

OP 00508 

0? 00509 

OP 0050A 

C? 005oB 

0? 005oC 

02 005oD 

OP Q050£ 

0? 0050F 
02 

OP 00510 

OP 00*11 

0? 00512 

0? 00513 

OP 00514 

0? 00515 

OP 00516 



0? 00517 



0? 

0? 

c? 

OP 
0? 
OP 



00518 
00519 
OOSlA 
005lB 
OOSlC 
005lD 



<75 

2^900001 A C8CML8&P 

688OOS0C 

2UA00001 A 

22100723 

22200001 A 

0*100790 

B210000A A 

6*400610 
22100545 
2U80O00O A 
6*l0O50A 

2810OS46 

2220000* A 

0*100790 

2S>800001 A K8C6CM 

20900000 A 

6S>30O4FE 

6«00001D 
0051U C8CPRT 

72200001 A 
0*100790 

6*080000 A 



0^200000 A 
06000000 A 
OOOOOOOO A 
OUOOOOOO A 



TERMTYPE 



TERMINAL C8MMAN0 

SLS#SRP 1 

BEV NBC8CM 

Al#SR3 1 

LJ#Rl RETN 

Ll/RP 1 

CAL1#1 WRITE 

LW/Ri #SR3 

BAL#R4 C9CPRT 

LliRl C8C8N 

Al^SRj 

BLZ s+2 

LI#Ri C8C8FF 

LliRp 4 

CAL1#1 WRITE 

SLS1SR1 1 

Al#SRp 

BKEZ C8CML86P 

B PR8MPT 

FQU $ 

LB*R? Ri 

CAL1#1 WRITE 

B 0#R4 

DATA Xt06200000» 

DATA X»Q600Q0OO» 

DATA 

DATA 



VERB 

BIT T8 BE IGN8REP 

NEW LINE 



IDENTIFY M8DE 
GIVE 

8N/ 
8FF 

MSG 



G8 IF M8RE T8 CH£CK 



1X3 



06600000 A C8CSTATC GENj8#4#P0 6*6*0 

* 

7 00o520 TTYPTAB GEN#8*P4 7#TTYPQ 

0?000522 GEN*8jP4 7jTTYP1 

Q?000524 GEN#8jP4 7#TTYPp 

0^000526 GEN#8*p4 9#TTYP3 

0^000529 6ENj8j?4 14#TTYP4 

0^000520 6ENj8jP4 14#TTYP5 



FPT F8R TRANS TBL 
& C8C IDLE ALG8RITHM 
IDLE FIELD 
C8CTERM FIELD 



GET EXTENDED LINE STATyS 



U US36 SEP 08, 


2019 


02 


OOSlE 


2020 


C2 


OOSlF 


2021 


0? 


00*20 




C? 


00521 


2022 


02 


00*22 




02 


00523 


2023 


02 


00524 




02 


00525 


2024 


02 


00526 




02 


00527 




02 


00528 


20 2S 


02 


00529 




02 


0052A 




02 


0052B 




02 


0052C 


202* 


02 


00520 




02 


0052E 




02 


Q052F 




02 


00530 


2027 


02 


00531 




02 


00532 




02 


00533 




02 


00534 




02 


00535 


202* 


02 


00536 




02 


00537 




02 


00538 




02 


00539 




02 


C053A 


2029 


02 


0053B 


2030 


02 


0053C 


2031 


02 


0053D 


2032 


02 


0053E 


2033 


02 


0053F 


2034 


02 


0054Q 


2035 


02 


00541 


2036 


02 


00542 



♦ 75 

13000631 
1300O536 

15E3F3E8 A 

40F3F340 A 

1&E3F3E8 A 

40F3F540 A 

1&E3F3E8 A 

40F3F740 A 

1SE7C4E2 A 

4QF7F0F1 A 

FS4Q4040 A 

lS>FgF7F4 A 

FX40CSC2 A 

C3C440E2 A 

E3C44040 A 

15F2F7F4 A 

F14QC5C2 A 

C3C440C1 A 

D7D34040 A 

1S?F2F7F4 A 

F140F2C5 A 

03C5r3E3 A 

D9C9C340 A 

E8E3C440 A 

1&F2F7F4 A 

F140F2C5 A 

D3C5C3E3 A 

D9C9C340 A 

CXD7D340 A 

0Q8C*CAO A 
0*000547 
0&00O549 
1^000540 
A 000552 
0^000555 
1U000559 
0^000550 



TERMINAL CSMMaND VERB 
GEN#8j24 19#TTyP6 
GEN,8,p4 19#TTYP7 
TTYPo TEXT tNTTY 331 

TTYPl TEXT tNTTY 35? 
TTYPp TEXT tNTTY 37 f 
TTYP3 TEXT fNXDS 701*» 

TTYP4 TEXT tN274l EBCD STDt 
TTYP5 TEXT «N2741 EBCO APL f 
TTYP6 TEXT IN2741 SELECTRIC STDf 

TTYP7 TEXT »N274l SELECTRIC APLf 



M80ECW DATA Xt008C6CA0» 
GEN#8#p4 8#MMq 
GENj8,p4 14#MMl 
GENjgjp4 19jMM?, 
GEN,8jp4 10#*M3 
GENj8,p4 15#MM4 
GEN#8jP4 16#MM55 
GEN#8jP4 12J^M6 



1U 



i 18856 SEP OS* 


♦75 








TERMINAL COMMAND VERB 


2037 


02 


00543 


10000560 






GENjAj 


»24 16#MM7 


2038 


02 


00544 


0&00O564 






GENjgj 


,p4 14#MM8 


2039 










# 






2040 


02 


00545 


40060540 


A 


C8C8N 


TEXT 


» on t 


2041 


02 


00546 


40D6C6C6 


A 


ceeeFF 


TEXT 


f 8FF» 


204? 


02 


00547 


C5C3C8D6 


A 


MMQ 


TEXT 


»FCH9PLEXt 




02 


0C548 


D7D3C5E7 


A 








2043 


02 


00549 


E3C1T240 


A 


MMl 


TEXT 


♦ TAB SIMULATION! 




02 


0054A 


E2C9H4E4 


A 










02 


0C548 


D3C1F3C9 


A 










02 


0054C 


D6D54C40 


A 








2044 


02 


0054D 


E407D7CS 


A 


HMg 


TEXT 


fUPPER CASE RESTRICT 




0? 


0054E 


0^#0r3Cl 


A 










02 


0054F 


E2C540D9 


A 










0? 


00550 


C5EgF3D9 


A 










02 


00551 


C9C3F340 


A 








2045 


C? 


00552 


D7Cm7C5 


A 


MM3 


TEXT 


fPAPER TAPE* 




02 


00553 


D»4QP3Ci 


A 










C2 


00554 


D7C54C40 


A 








2046 


C? 


00555 


E8D7C1C3 


A 


NM4 


TEXT 


fSPACE INSERTION! 




02 


00556 


Cb40C9D5 


A 










02 


00557 


E2C5n9E3 


A 










02 


00558 


C9D6D540 


A 








2047 


02 


00559 


D3D6F6C5 


A 


MMS 


TEXT 


!L0WER CASE SHIFT! 




02 


0055A 


D940C3C1 


A 










0? 


C055B 


E2C540E2 


A 










0? 


0055C 


C8C9C6E3 


A 








2048 


0? 


0055D 


D/C1D9C9 


A 


MM6 


TEXT 


♦PARITY CHECK! 




02 


0055E 


E3E84QC3 


A 










0? 


0055F 


C3C5C3D2 


A 








2049 


02 


00560 


D9C5D3C1 


A 


MM7 


TEXT 


RELATIVE TABBING! 




0? 


00561 


E3C9F5C5 


A 










02 


00562 


4UE3C1C2 


A 










02 


00563 


C2C9D5C7 


A 








2050 


02 


00^64 


CgClC3D2 


A 


MMg 


TEXT 


BACKSPACE EDIT? 




02 


00565 


E2D7CiC3 


A 










02 


00566 


Cb4QC5C4 


A 









115 



HOI 1**36 REP 08* 
0? 00567 
205? OP 00568 
02 00569 
0? 0056A 
0? C056B 



£053 
2054 



P055 



2056 



2057 
2059 



0? 0056C 
02 0056D 
02 0056E 
0? 0056F 
02 00570 
02 00571 
02 00572 
02 00573 
02 00574 
02 00575 
02 00576 
02 00577 
02 00578 



»75 

CyE34040 A 
0O00O56C 
000COB6C 
0U00O57O 

0U00O10O N 

D9C50tC5 A 

C3E340C3 A 

D6E4D7D3 A 

C5E24040 A 

C1C3C3C5 A 

D7E340C3 A 

D6E4D703 A 

CSE2404G A 

C3D6F4D7 A 

0^C5r.44O A 

E3D64003 A 

C9D5C540 A 

4U404040 A 



CPLMSQ DATA 



# 
HSRCP 



MSACP 



MCPLD 



TEXT 



TEXT 



TEXT 



TEXT 
TITLE 



TERMINAL C8MMAND VERB ll6 

MSRCPjMSRCPiMSACPjTELSTACK C8UPLE STATUS MESSAGES 

'REJECT CeUPLFS* 
tACCEPT CeUPLFSt 
tCaUPLED T9 LINE i 



? t FILLED BY LINE NUMBER 

'PRINT C8MMAND VERB' 



HOI 



ISSafc SEP C8, *75 



?060 










2061 










?06? 










?063 










2064 




02 


0057» 




?065 


0? 


0OS79 


2X100G01 


A 


2066 


0? 


0057A 


6^2on8F7 




£067 


c? 


0057B 


0^9ono06 


A 


?068 


0? 


0057C 


6*oonoiD 




9069 










1* 











PRINT C6MMAND VERB U7 

# THE PRINT C5KMAND CAUSES 8UTPUT ACCUMULATED ?BK THfe LINE POINTER T9 BE 

* PLACED ©K THE PRINT QUEUEt 8UTPUT DESTINED FOR THE LINE PRINTER FRC*M 

♦ ALL 8N.LINE CfiMPLI ATI8NSj ASSEMBLIES, PCL 8PERATI6NS, DELTA DUMPS, 

* ETC,, ARE ACCUMULATED 8N RAD UNTIL THE PRINT COMMAND IS GIVEN, 



PRINT 



EQU 

CliRl 

BG 

CAL1j9 

B 

TITLE 



* 

1 

SYNTAX 

6 

PR8MPT 

»ERASE CBMMAND' 



REM8TE WORK STATlQN ID ©N RRJNT 



Hoi 



18*36 SEP OSj 


'75 




P* 










3* 










4* 










S* 










ft* 










7* 










ft* 










9* 




02 


0057W 




10* 


0? 


0057D 


21100001 


A 


11* 


0? 


0057E 


692008F7 




1?* 


0? 


0057F 


Q*Soo7E9 




13* 


OP 


00580 


6800OO1D 




14* 










P070 










2071 










P07P 










?073 




C2 


00581 




P074 










?07?S 










P076 










P077 










P078 










2079 










P080 


0? 


00581 


2*500001 


A 


P081 


0? 


00582 


4 tt 5onooo 


X 


?08p 


CP 


00583 


6»3on82F 




2083 










P084 


0? 


00584 


3*500016 


N 


2085 


0? 


00585 


4750OC00 


X 


P08ft 


CP 


00586 


6800001D 




?088 











EXTEND COMMAND 

EXTEND AVAILABLE C8RE FOR NEXT PROCESSOR CALLED 



ERA$E COMMAND 118 

*F* NAME1 ERASE * 

#f* PURPesrJ the erase command is a short way t© perform thl * 

*F* EQUIVALENT OF LDEV LIj (DELETE) • ITS EFFECT IS TO * 

«f* delete any pending output for the ui stream, which « 

#f* in most cases will be the user»s line printer outpytt* 

#####*##*#####*####♦###♦#####*###♦##*#♦#♦#####*######♦♦#####*##«*####### 

ERASE EQU * 

CI#R1 1 N8 ARQUEHENT 

BG SYNTAX IS PERMITTEDt 

CALl,* ERASFPT DO LDEV 

B PROMPT 

• 
* 
* 
* 

EXTEND FGU t 

#***##*«*#«*#####«#«#*#*««**##«# #*«*##**•#*«#««««#*#**«*#*##*#««*« ##*##* 
*E* FRRORl * 

*E* GROUP 03j C8DE*01j SUBCODEpOO * 

*E* DESCRIPTION? * 

*E* EXTEND COMMAND ISSUED WHILE NOT AT JOB STE? * 

*#«••#**•«««»•««#«#****#**«**««*»###»###*##*#«•#«*«#*####*«***#****#**** 
LlsRB JSTEP 

AND/R5 JiTELFLGS AT JOB STEP 
BEZ NTJBST BR IF NOT 

# 

LW,R5 EXTNDBIT 

ST8#RR UJTELFLGS SET EXTEND BIT 

B PROMPT 

TITLE ^DECOUPLE, COUPLE VERBS' 



HOI 



18136 REP 08* '75 



DECBUPLE#C8UPLE VERBS 



£089 




02 


00587 




DFCeuPlF 


FGU 


$ 


2090 


0? 


00587 


2*C01000 


A 




LI/Di 


DBNTBlT 


2091 


02 


00588 


* tt Conooo 


X 




AND#D1 


JJTELFLGS 


2092 


02 


00589 


69300262 






BNE 


GlVEBlRD 


3093 


02 


0058A 


0*80O7EE 






CALl*8 


MDCPL 


909* 


02 


00588 


6&0QO01D 






B 


PR8MPT 


3095 












SPACE 


2 


2096 




02 


QQB8L 




C6UPLE 


ECU 


$ 


2097 


02 


0058C 


22CQ1COO 


A 




LI#D1 


D8NTBIT 


2098 


02 


C058D 


*WConcoo 


X 




AND#D1 


JJTELFLGS 


2099 


02 


0058E 


68300593 






BE 


CBUPLE1 


2100 










# 






2101 










* 


DBN'T r.euPLE ISSUED 


2102 


02 


0058F 


21100000 


A 




CI#R1 





2103 


0? 


C0590 


6920O6B1 






BG 


GIVEMEH 


1* 


02 


00591 


22*00000 


A 




Ll#R* 





2* 


02 


00592 


6*000596 






6 


CPLCMN 


2106 


02 


00593 


2X100001 


A 


ceuPiEi 


CI/R1 


1 


2107 


0? 


0059* 


69200599 






BG 


C6UPLF2 


2108 










« 






2109 










# 


fCeupir 


» TYPED- ISS 


1* 


02 


00595 


32*oool8 


N 




LVOR* 


Y008 


2* 


0? 


C0596 


2^*00080 


A 


CPLCMN 


Al*R4 


xtao» 


3# 


02 


00597 


0*80O7EF 






CAL1#8 


MCTCPL 


21 11 


02 


00598 


6*000010 






B 


PR8MPT 


2112 










# 






2113 










# 


C8UPLE 


XX ISSUED, A 


211* 


02 


00599 


22C0O00O 


A 


CBUPLE2 


LI#0l 





2115 


02 


0059A 


2230O00C 


A 




LliR3 


Dt 


2116 


02 


00598 


6 a Aqo8Ao 






BALjSR* 


SCAN 


2117 


02 


0059C 


21700002 


A 




CI#R7 


2 


2118 


02 


C059D 


6920O8F7 






BG 


SYNTAX 


2119 


0? 


0059E 


0220O02O 


A 




PUSH 


2#R1 




02 


C059F 


a lOO10O 


N 








2120 


02 


OO5A0 


6Aloo<595 






BAL#Ri 


HEX28IN 



119 



DEC8UPLE TERMINALS 

IS THE D8NT FLAG SETt* 

IF SB, HE SAY fD»NT DEC8UPLE » 

AND W£ SAY tQ8NT WHAT '•••••• 

JUST ISSUE THE CAL 
AND LEAVE 



SEE IF THE D6NT FLAG 
IS SET. IF IT ISi THIS 
IS A D8NT C8UPLE VERB 



DID THEY SAY »0BNt C8UPLE XX' 

YUP. GIVE tEM EHt 

T8 RESET M8DE* BIT 

G8 D8 CBMM9N MlCT 

AN ARGUMENT MUST MEAN 

COUPLE T8 A TERMINAL 

PERMIT C8UPLE CAL« 

T8 SET M8DE* BIT 
C8UPLE PERMISSI8N BIT 
SET/RSET M8DE*# »TT 



ATTEMPT C8UPLE T8 TERMINAL 
WHERE ARG WILL G» 



GB GET IT 
M8RE THAN 
AN ERRBRt 



2 CHRS TS 



C8NVERT IT 



HOI 18:36 SEP C8j «75 
2121 
2122 
2183 



2124 
212S 
2126 
2127 
212R 
2129 
2130 
2131 
2132 

2133 
2134 
2135 
213* 
2137 
213* 
2139 

2140 
2141 

2142 
2143 

2144 



02 
02 
02 
02 
02 



00SA1 
005A2 
005A3 
C05A4 
OO^AS 



02 
02 005A6 
02 C0SA7 
02 005A8 
02 005A9 
02 005AA 
02 005AB 
02 005AC 
02 005AD 

02 OOSAE 
02 005AF 
02 OOSBq 
02 005Bi 
02 00582 

02 00583 
02 00^84 
02 005B5 
02 005B6 
02 005B7 
C2 005B§ 
02 C05B9 
02 0058A 
02 005BB 



2l8oriOOO 
6*lon5A6 
0^200020 
OMOMOO 
6»00O«F7 



0C5A6 

223ono03 A 
71860000 F 
6«30n68l 
4980OB2E 

0^800008 A 

6^800010 

6*400581 

2810OSB5 

2S20O00F A 

Q*10rt79o 

68000010 

221005B5 

2820O01C A 

0*100790 
6«00O0lD 
C3D6F407 A 
D3C540D9 A 
C5C6P4E2 A 
C5C44B40 A 
D3C9H5C5 A 
4UD5H6E3 A 
4UD6H54B A 





DEC9UPLE*CaUl 


D LF VERBS 


CI#SRi 





C8NVERSI&N errors 


BGE 


CSUPLF3 


T8 C8UPLE3 IF N8T 


PULL 


2jR1 


IF S6j 



120 



* 

* 

* 

C8UPLE3 EQU 

LI/R3 
CB#SRi 

BE 

8R#SRl 
CALl#8 
BCRj8 
BC8#4 
LI#Rl 
LliR2 
CALlM 
B 
C8UPLE5 LlsRi 
LI#R2 

CALlM 

B 

NftLINE TEXT 



B SYNTAX GROUSEtttttt 

TRY T8 C9UPLE Te LINE NUMBER IN SRl • 



* 
3 

MjUC*C8CLNjR3 

QlVEMEH 

IX'IDOOOOOG' 

SRI 

PR6MPT 

C6UPLES 

N8LINE 

IB 
WRITE 

PRGMPT 

NBLINE 

28 

WRITE 

PROMPT 

tC^UPLE RFFUSED. 



CHECK T8 SEE IF TRYING 
T8 9URSELVESft»«*t 
I W8N»T D8 ITt,tf ff 
6THERWISE 8R IN THE FPT 
AND ISSUE THE CAL, 
C8UPLE SUCCESSFULLY. 
LINE N8T 8N. TELL lEMt 
UNSUCCESSFULLY TKLL lEM 
THE BAD NEWS 

EXIT IN DISGUSTi 

GIVE »EM THE BAD NEWS 

LINE N8T ON, 1 



2146 



TITLE 



♦DISPLAY C8MMAND VERBf 



Hoi 



18! 

2147 

2148 
£149 
2150 
2151 
215? 
2153 
2154 
21 55 

2156 
2157 
2158 
2159 
2160 
2161 
216? 

2163 
2164 

2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
218? 
2183 



36 SEP 08j '75 



DISPLAY COMMAND VERB 



121 



0? 005BC 
0? 005BC 
02 005BD 
C2 0058E 
C? 005BF 
02 0O5C0 

0? 00SC1 
02 005C2 
02 005C3 
0? 005C4 
0? 005C5 
0? 005C6 

02 005C7 

02 005C8 
02 005C9 
C? 005CA 
0? OOSCB 
0? 003CC 
0? 005CD 
C? 005CE 
0? 005CF 
0? OOSDO 
02 00501 
02 005D2 



6 A Bon^lP 
048005FA 
32Coooo7 
6 A Bon979 
3270O00D 

38C0O005 
6ABon979 
3250O00D 
32Conoo6 
6ABqo979 
3S60D00D 

32100100 

20100001 
0^200030 
2 A 8oo5FB 

2 B 82o000 
35720002 
322oo7lC 
3^220003 
2220O00D 
0*100790 
0^200030 
2*8005FE 



DISPLAY 



TNr DtrPLaY COMMAND OUTPUTS INFORMATION aBOUt THE CURRENT 
SYSTEMS OPERATIONS. THE INFO OUTPUT IS THE NO. OF USERS 
CURRENTLY ON THE SYSTEMS, AND THE CURRENT VALUES 8F INTER. 



ACTIQN AND 
FOLLOWS! 
DISPLAY 

USERS »'XXX 
ETMF « XXX 

RESPONSE 90% 
RADS « XXX 



COMPUTE RESP8NSE TlMEt THE OUTPUT IS AS 



> XXX SFCONDS 
GRANULES 



RES 

BAL,SR4 
CALIjS 
LW#Dl 
BALjSRfc 
LW,R7 

LW*Dl 

BAL#SR4 
LW/R5 

BAL#SR4 
LW#R6 

LW,Ri 

AI*R1 

LCI 

LM # SRi 

STMjSRi 

STWjR7 

LW#R? 

STW#R;? 

LliR2 

CALl^l 

LCI 

LMiSRl 



8UTCARR 
DISPFPT 
R7 

BINDECBCD 
D? 

R5 

BINDECBCD 

Dp 

R6 

BINDECBCD 

Dp 

TELSTACK 

1 
3 

USERSQT 

0*R1 
2*R1 

CAPRETRN 

3#P1 

13 

WRITE 

3 

ETMFQT 



OUTPUT LINE OF BALNKS 
G8 GET DISPLAY INFO FROM MONITOR 
NO. OF USERS 

GO CONVERT NO, IN Dl* ANS. IN Dg 
PUT CONVERTED NO INTO R7 

ETMF 

GO CONVERT T8 DEL. - ANS» IN D2 

RESET ETMF BOX WITH DEC VALUE 
MEDIAN VALUE OF TERM RESPONSE 
GO CONVERT TO DEC FOR OUTPUT 
RESET MEDIAN VALUE TO DEC, 



TIME 



GET OUTPUT 
ADDRESS 



BUFFEK 



USERS MESS AND 
CONSOLE PRINT 



INT© BU^F 



ST8RE 
OUT, 

MESSAGE 



GET 

FOR 

PUT NO. OF USERS INTO 

INSERT CARRIAGE *ETURN 

STORE INTO BUFFE* AREA FOR OUTPUT 

NO, OF CHARS TO OUTPUT 

WRITE MESS. ON TYPEWRITER 

PICKUP ETMF QU8TF AND PUT 

PUT ETMF VALUE INTO BUFFER 



INTO *UFF 



HOI 18J 
2184 

?185 
2186 
2187 
2188 
2189 
2190 
2191 
PI 93 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
220? 
2203 
2204 
22CR 
2206 
2207 

2208 
2209 

2210 
2211 
221? 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 



36 SEP 08# 
0? 005D3 
0? 005D4 
0? 005D5 
C? 005D6 
0? 005D7 
02 C05D8 
0? 00509 
0? 005DA 
0? 005DB 
0? 005DC 
0? 005DD 
0? 005DE 
0? C05DF 
02 OOSEO 
0? 005E1 

0? 005E2 

0? 005E3 

0? 005E4 

0? 005E5 

0? 005E6 

0? 005E7 

0? 005E7 

0? 005E8 

02 005E9 

02 005E9 
02 005EA 

0? 005E8 
C? 005EC 
C? 005ED 

02 005EE 

0? OoSEF 

C? OOSFq 

02 005F1 

0? 005F2 

0? C05F3 

0? 00SF4 

0? 005F5 



'75 

2 D 820000 A 
3&52O002 A 
3220071C 
3bg2nC03 A 
2220O00D A 

QMoo79o 

022QO070 A 
2 A 80O601 
2 tt 82OC00 A 
3*620004 A 
322Q071C 
35220007 A 
2220O01D A 
0*loo79o 
32300000 F 
3U30O00O F 
6»l0O5E7 
224Q0C60 A 
3AC00003 A 
6*00O5E9 

224Q0040 A 
32C00003 A 

6 A B o979 
32100100 N 

2U100001 A 

02200070 A 

2 A 500608 

3 & Dqo007 A 

22300002 A 

7*460006 A 

2U30OG01 A 

75C60C06 A 
32B0O71C 

0220O07O A 
2*520000 A 



STM#SR1 

STW#R5 

LW,Rp 

STW#Rp 

Ll#R? 

CALIjI 

LCI 

LM,SRl 

STMiSRi 

STWjRfe 

LW/Rp 

STW#Rs 

LI*R? 

CAll*i 

LWiR3 

AW#R3 

BGEZ 

LI#«4 

ICW#D1 

B 

RADPIUS RES 

LNR4 
LW,Di 

C8NVBIN RES 

BAt#SR4 
LW*R1 
Al#Rl 
LCI 

LM#R5 

STWjD? 

LI#R3 

STB#R4 

Al#R3 

STBiDi 

LW/SR4 

LCI 

STM#R5 



DISPLAY COMMAND VERB 
0#R1 
2**1 

carretrn 

3#R1 
13 

WRITE 
7 

mfanqt 
o*R1 

4iRl 

CARRETRN 
7,R1 
29 

WRITE 
JjJIT+PRDCRM 

JjJIT+PRDPRM 

RADPLUS 

XI60 1 

R"^ 

CONVBIN 



Xt40» 

R3 



B1N0ECBCD 

TELSTACK 

1 

7 

RADSQT 

R7 

2 

R6#R3 

1 

R6jR3 

CARRETRN 

7 

0*R1 



122 



INSERT CARRIAGE RETURN 

STORE INT8 BUFFER AREA FOR OUTPUT 

OUTPUT ETMF MESSt ONTO TERMINAL 

PICKUP MEAN TERM TIME 

AND PUT INTO BUFFER TO Bg PRINTED 

PUT MEAN VAL INTO BUFF TO BE PRINTED 

INSERT CARRIAGE RETURN 

ST8RE INTO BUFFER AREA FOR OUTPUT 

SIZE 8F MESS T8 OUTPUT IN BYTES 

8UTPUT 8NT8 TERMINAL 

PERMt DISC SPACE REMAINING 

PERM • DISC PACK SPACE REMAINING 



NEG 
AND 



VALUE 

value 



GET MINUS SIGN 



BLANK F8R PLUS 



C8NV BIN RAD VALUf? T8 DEC 
GET BUFFER ADDRESS 



PICKUP fRADS m XXXXX GRANULES* UT 

PUT IN N8i 8F GRANULES AVAILABLE 

PICKUP BYTE OFFSET 

ST8RE BYTE INTO OUTPUT BUFFER 

SET STORE FOR LEAD BYTF ©F RAD SIZE 

ST8RE LEAD BYTE Of RAD SIZE 

PUT IN SIZE BYTE 



PUT IT ALL INTO OUTPUT BUFFER 



HOI 



18136 SEP 08* 


175 








DISPLAY CftMMA 


2221 


0? 


Q05F6 


22200019 


A 




Ll*R2 


2R 


2222 


02 


COS?? 


0*l0n79O 






CAL1M 


WRITE 


2223 


02 


005F8 


6 A Boo612 






BAUSR4 


aUTCARR 


2224 


02 


005F9 


68000010 






B 


PRBMPT 


222R 










* 






2226 


0? 


005FA 






DISPFPT 


RES 





2227 


0? 


005FA 


1^000000 


A 




DATA 


XU30OC00O* 


2228 


02 


005F8 






USER$QT 


RES 





22?<* 


C? 


005FB 


E4Egr5D9 


A 




TEXT 


t USERS ■ • 




02 


005FC 


E2407E40 


A 










02 


005FD 


4U4Q4C40 


A 








2230 


02 


005FE 






ETMFQT 


RES 





2231 


02 


QO^E 


CSE3H4C6 


A 




TEXT 


»FTMF « » 




02 


005FF 


4Q4Q7E40 


A 










02 


0060C 


4U404040 


A 








223? 


02 


00601 






HEANQT 


RES 





2233 


02 


00601 


D^C5F2D7 


A 




TEXT 


fRESPdNSE 90 




02 


00602 


D6D5FPC5 


A 










02 


00603 


4UF9F06C 


A 










02 


00604 


4U4Q4C40 


A 










02 


00605 


40404040 


A 










02 


00606 


40D4F2C5 


A 










02 


00607 


C3E24040 


A 








2234 


0? 


006C8 






RADSGT 


RES 





2235 


0? 


CO608 


D9C1T4E2 


A 




TEXT 


tRADS • 




02 


00609 


W7E4040 


A 










02 


0060A 


4U404C40 


A 










0? 


0060B 


404040C7 


A 










02 


0060C 


D9C1D5E4 


A 










02 


0060D 


03C5F240 


A 









BUFFER SUTPUT SUE 
OUTPUT BUFFER &NT8 TTY 
8UTPUT LINE 8F BALNKS 
Q© GET NXT CMD 



1*3 



MSECS t 



GRANULES! 



2236 



TITLF 



♦STATUS C9MMAND VERB* 



woi 



18*36 SEP 08# '75 



PP37 

??38 
??39 
P240 
?241 
PP4? 
2243 
P244 

2P46 
2247 
224* 
2249 



0? 0060E 

0? 0060 r 
0? 00610 

OP 00611 



6ABonM2 
6*2onA3C 
6 A Bon612 
6*0000lD 



# 
# 
# 
# 
# 
« 
STATUS 



STATUS C8MMAND VERB 

THE STATUS VERB IS PROCESSED BELBWt THE W8RK IS D8NE 
?N TWf RBUTINE STATUSL. N8 REGISTERS ARE SET 8N 
pNTRY t6 THE RBUTINE STATUSL, THE LINE IS OUTPUT TB THE 
TERMINAL FRBM THE ROUTINE STATUSL* 



184 



RES 

BALiSR4 
BAL,R? 

8AL,SR4 
B 

SPACE 





8UTCARR 
STATUSL 

BUTCARR 
PRBMPT 

4 



8UTPUT LINE BF BALNKS 

G8 C8MPUTE ANO PKINT BUT^UT LINE 
BUTPUT LINE BF BALNKS 



2250 








* 




2231 








# 


THE Ffi 


225? 








# 


SR4 IS 


2P53 








• 


Rl AND 


2254 


0? 


00612 




BUTCARR 


RES 


225S 


OP 


00612 


asion7ic 




LI#Ri 


2256 


0? 


00613 


2220D001 A 




Ll#Rp 


2257 


0? 


00614 


0n0O79O 




CAL1j1 


225* 


OP 


00615 


E^OOOOOB A 




B 


1* 










TITLE 



FBLL8WING RBUTINe 9UTPUTS 8NE LINE 8F BLANKS 
THE LINK REGISTER 
R? ARE DESTRBYEO 


CARRETRN PBINT TB CARRIAGE RETURN 
1 THE NBt BF CHARACTERS TB 

WRITE BUTPUT TB TERMINAL 

*SR4 EXIT 

'SEND C8MMAND* 



W8RD 
BUTPUT 



HOI 



18*36 
P* 
3* 
4# 
5* 
6* 
7# 

** 

9# 
10* 
11* 
1?* 
13* 
U* 
15* 
16* 
17# 
18* 
19* 
20* 
21* 
2?* 
23* 
24* 
25* 
26* 
27* 

2** 



SEP Q8# f 75 



SEND C8MMAND 



185 





02 


0? 


00616 


02 


00617 


0? 


00618 


0? 


00619 


c? 


0061A 




02 


02 


C061B 




02 


0? 


0061C 


0? 


0061D 


0? 


0061E 



00616 

22301000 A 
31300000 X 
6940061B 
28400000 A 
6*0006lC 

0061* 

38400016 N 

006l<* 

4^400006 N 

0*8007F3 
6*00001D 



»F* 
#F» 

#F* 
#F* 
#F* 
#F* 

#F* 
#F* 
♦F* 

#F# 
#F* 
#F* 

SEND 



##♦#**#♦#########*#######**#######♦»#*##########♦♦###♦♦######»*## 



namej sfnd 

purp8sfs tme sfnd c8mmakd is used t8 enable/disable 
rfCeipt 6f messages sent t$ the user terminal 

BY THf CP.V 8PERAT8R« 
DESCRIPTI8NJ THE DEFAULT SETTING F8R THE SEND FlAQ IS 
T8 ALL8W 8PERAT8R MESSAGgSt WHg;N TH£ USpR SAYS 
D8NT SEND, ALL 8PERAT8R MESSAGES AKp DISaLL8wED. 
HBWEVfRj ANY GL8BAL BR8ADCASTS WHICH ARE DEFERRED 
WHILE THE USFR IS NOT IN TEL WILL &E PRINTED BY 
TFL THE NfXT TIME HE GETS C8NTR8Lt D8NT SEND ALS8 
DISALL8WS USE 8F THE MESSGE C8MMAND, SINCE THE USE* 
W8ULD N8T BE ABLE T8 RECEIVE ANY 8?ERAT8R REPLY. 



DNTSEND 
SENDCMN 



♦#♦♦###♦*# 
EQU 

Ll#R3 
CW#R3 
BANZ 
LI#R4 

B 

ECU 

LW#R4 

FCU 

8R#R4 

CALljft 

B 

TITLE 



* 
# 
« 

# 

* 
« 

# 
» 

* 
* 

« 

* 

D8NT8IT 

J:TELFLGS CHECK F8R D8NT 

DNTSEND USER SAID D8NT SEND 

T8 RESET FLAti 

SFN'DCMN 

$ 

Y002 M8DE5 DEFER BjT 

* 

X?0 MERGE MASK 

CTFPT SET/RSET DEFER MSG FLAG 

PR8MPT 

■MESSAGE COMMAND VERB* 



Hdl 



1RI36 

39* 

30* 

31* 

3P* 

33* 

34* 

35* 

36* 

37* 

3S* 

39* 

40* 
#1* 
4P* 

43* 
44* 
45* 
46* 
47* 
48* 
49* 
50* 
51* 
5?* 
PP59 



SEP 08# t75 



MESSAGE C8MMAND VERB 



l<i6 



*«#««*•##«*««»#««#«##*####«««#»««*####**#####*#####»*«*##«##*«#«**#«*##« 
*F# 

#F* 



NAME! MESSAGE 

PURP85EI THE MrSSAGE COMMAND IS USED TB SEND A MESSAGE 



*F* TB THE CP.V 8PERATBR. * 

♦##♦*##*##**####»##♦#♦*###*«##♦#####♦#####*##«#####♦*###♦•##*###*♦*#*#*# 



• D* 
*D* 
*D* 
#D* 
*D* 
*D# 
*D* 
#D* 
#D* 

*D* 

*D* 
*D* 
#D* 
*D# 
«D* 

• D* 
#D* 
*D* 



name! message 
entry! messageo 

reqistprsi n9 registers are preserved. 
call! Called frbm tfl cbmmand scan 
data! tflbuf - c8ntains message text 
atbz - limits f8r alpha chars 
input? jbiccars - size 8f message 

8UTPUT! THf MfSSAGf IS TRANSMITTED T8 THE 8C 
DESCRIPTIBNI AN MitS IS ISSUED T© SEE I* THE 

DISABLED RECEIPT 9F SPERaTBR MESSA^FS. 

fDEFER» BIT IS SET# WE GIVE THE USER AN 



SHSULD THEN 

8PERAT8R T8 

BEF8RE 

SCANNED FBR 



ISSUE A »SEND» COMMAND TB ALL8W THE 
REPLY TB HIS MESSA^Et 
TRANSMITTING THE MESSAGE TEXT* IT IS 
LBWERCASE ALPHA CHARACTERS, WHICH ARE 



« 

* 
* 
# 

* 

« 

USER HAS * 
IF THE M8DL5 * 
ERR8R« HE * 

« 



CBNVERTED TB UPPER* SBTHE BPERATBR WBN'T SEE GARBA^Et* 
IF THE MESSAGE *8N»T FIT 8N 8NE LlNpj IT IS 8RBKEN * 
INT8 TW9 LINES WHICH ARE SENT TB THE BC SEPARATELY' * 



«###«**#*#*#«#«##«»##*«#«#*«•««##«*•#»##*##*#««#«*#**###««#««#««*#«**«** 



TITLE 



fMESSAGE C8MMAND VERB? 



Hoi 



18136 SEP 08* 


'75 






MESSAGE C8 


2P60 




02 


0061^ 




MESSAGED FCU 


S 


2P61 


0? 


0061F 


6AF0O64C 




BAL#D4 


MFSSAGE4 


PP6P 


OP 


00620 


28FonOOO 


A 


LI#D4 





PP63 


0? 


00621 


784QO000 


X 


LBiR4 


JBjCCaRS 


2?64 


0? 


00622 


2U4FFFFE 


A 


AI/R4 


«2 


c<k 6S 


OP 


00623 


2X400049 


A 


CI#R4 


73 


2P66 


02 


00624 


6*200626 




BLE 


**2 


2267 


0? 


00625 


28400049 


A 


LI#R4 


73 


3268 


0? 


00626 


38500004 


A 


LW*R5 


R4 


PP69 


OP 


00627 


20500006 


A 


Al^RS 


6 


2?7q 


OP 


00628 


38100005 


A 


LW^Rl 


K?7 


2271 


0? 


00629 


78680106 


N 


LB#R6 


TELBUF, R4 


227p 


OP 


0062A 


7S6A0106 


N 


STB,R* 


TELBUF, R3 


2273 


OP 


0062B 


205FFFFF 


A 


Al#Rg 


.1 


2274 


0? 


0062C 


6*400629 




B0RjR4 


$•3 


2275 


c? 


0062D 


6*000632 




B 


MESSAGE! 


2276 










# 




P277 




02 


0062k 




MESSAGE FGU 


* 


2278 


c? 


006PE 


6 A Foo64C 




BALj04 


MESSAGE4 


2279 


0? 


0062F 


28FQOO00 


A 


LI#04 





2P80 


OP 


00630 


78100000 


X 


LBjRi 


JBICCARS 


PP81 


0? 


00631 


2U1FFFFE 


A 


Al#Rl 


•? 


2P8P 










# 




2283 


0? 


00632 


21100033 


A 


MESSAGE1 Cl#Rl 


51 


2284 


0? 


00633 


6*200636 




BLE 


MESSAGI2 


2285 


OP 


00634 


201FFFD4 


A 


Al#Rl 


•51*7 


2286 


OP 


00635 


28F00001 


A 


LI#04 


1 


2P87 


OP 


00636 


08200020 


A 


MESSAGE2 LCI 


2 


2288 


c? 


00637 


2 A 20064A 




LM/RP 


MSGMESS 


2289 


0? 


00638 


2**200106 


N 


STMiRp 


telbuf 


229o 


0? 


00639 


21F00001 


A 


CI/D4 


1 


2291 


OP 


0063A 


6930063E 




BNE 


• *4 


229? 


OP 


OO63B 


28500033 


A 


LI*Rs 


51 


2293 


0? 


0063C 


7&50O106 


N 


STBiRfi 


TELBUF 


2294 


OP 


0063D 


6*00063F 




B 


$♦2 


2295 


0? 


0063E 


7blooi06 


N 


STB1R1 


TELBUF 


2296 


0? 


0063F 


082OO030 


A 


LCI 


3 



VERB 



187 



CNK F8R L8WER CASF CHARS 

EXCEED FLG 

GET REC8RD SIZE 

SET IN0X&DR8P C/« 

CHK F8R MAX SIZE 

SET TB MAX 

SAVE ThE puf 

ADD TABS &ASTERISK 

GET THE BYTE 

M8VE THE BYTE 

DECRE 

M8VE EM ALL 



CHK F8R LBWER CASE CHARS 

EXCEED FLG 

GET REC8RD SIZE 

DR8P C/R& SPACE 

WILL MESSAGE FIT 8N 8NE LINE*" 
•••> YESt 

N8t GET SIZE 9F SEC8ND LINE 
AND SET TW8.LINF FLAGt 



SET SIZE T8 51 



hoi i«: 

2297 
229* 

2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 

2310 

2311 
231? 
1* 
2* 
3* 
4* 
5* 
6# 
7# 
8* 
9* 
10# 
H# 
2313 
2314 
2315 
231* 
2317 
231* 
2319 
2320 
2321 



36 SEP Og# 
0? 00640 
02 00641 
0? 00642 
0? 00643 
02 00644 
02 00645 
02 00646 
02 00647 
0? 00648 
02 00649 



02 0064A 
02 OO64B 



♦75 
2*Con7E4 
Q*200QOC A 
21FonCOl A 
6^300649 

0g20OC2O A 

2 tt 200lll N 

7&10O111 N 

28E00111 N 

<f 20OO0C A 
6»00O0lD 



0005055C A 
5W5CRC40 A 



02 Q0*4<» 



02 Q064C 
02 0064D 
02 0064E 
0? OO64F 
02 00650 

02 00651 
02 00652 
0? 00653 
02 00654 
C2 00655 
02 00656 
02 C0657 
0? 00658 
02 00659 



0*800517 
3lB ftOlE N 
6*4on651 
2<iC30DOO A 
6*00O70E 



72100000 

32400001 
204PFFFF 
7^580106 
1^500650 
6^600658 
205QO040 
7S»58ni06 
204FFFFF 



LM,Dl 

CALljj? 

CI#D4 

BNE 

LCI 

STMiRp 

STB,R1 

Ll*D3 
CALl/g 
MESSAQE3 B 

# 



MESSAGE C8MMAND V?RB 
SENDMES 
Di 
1 
MESSAGE3 

2 

TCL8UF*li 

TrLBUF*ll 

TFLBUFtll 

Di 

PROMPT 



188 



SEND TME MESSAGE 



INSERT TABS $ ASTERISK 
F8R 2ND PART 8F MgG 
INSERT BYTE C8UNT 
BUFFER AQDR F3R PPT IN REGS 
SEND ?ND HALF 8F MESSAGE 



HSGMESS 



BOUND 
DATA 



8 

X t 0005055C 1 1 X t 5C5C5C40 « 



MESSAGE4 FCU 



i 



C8NVERT LOWER CASE CHARS 



**♦#**##«#**»#**#«#««##««#*#»**«*»#*#«#*#««**#«#**« •***»##* ##»#♦#♦♦###*# 



*E* FRR8RJ 
#E* DESCRIP 

CAL1j« 

CW*SR4 

BAZ 

LI#Dl 

B 

« 

LBjR1 
LW#R4 
Al*«4 

MESSAGES LB#R5 
CLMiRF 
BCS#6 
AI#R5 
STBjRB 
AIjR4 



GRP 03* OD*0C * 

TI8NJ USER WANTS T9 SEND MESSAGE T8 8PeRAT8R# # 

BUT HE W8NIT BE ABLE T8 RECEIVE A REPLY, * 



C8CSTATC 

Y? 

*+3 

X»030D00« 

CMNERRl 



GET TERMINAL STATyS 
M8DES DEFER BIT 
DEFER N8T SET* MSg O.K. 
DISALL8W (ERRMSG KEY) 



JBICCARS 
Rl 


GET REC8RD SJ2E 


TFLBUF<R4 
AT8Z 

*+2 


get Data 

IS IT L8WER CASE 

N8 


X»40» 

TELBUFjR4 

•1 


YES-MAKE IT UPPEN 



HOI 18136 SEP 08# *75 MESSAGE C8MMAND VERB 129 

232P C? 0065A 6*ion654 BDR#Rl MFSSAQE5 

£323 OP Q065B ESOOOOCF A B #D4f 

?324 • 

?3?$ # 

?32* B8UND 8 

2327 0? 0065C 0000OOA9 A AT8Z DATA X»A9NX»«!« Z ...... T9. ... A 

OP 0065D 0U0ODO81 A 
P328 • 

P329 TITLE! IBACKUP C8MMAND VERB* 



Hoi 



1*1 

233n 
2331 
233? 
2333 
2334 
2335 

2336 
2337 
233* 
2339 

2340 
2341 
234? 

2343 

2344 

2345 
2346 
2347 
234* 
2349 
2350 
2351 

2352 
2353 

2354 
2355 
2356 
2357 
2358 
2359 
2360 
2361 
236? 
2363 
2364 
2365 
2366 



36 SEP 08/ »75 

02 0065fe 



0? 0065E 
0? 0065F 
0? 00660 
0? 00661 



02 00662 
0? 00663 
0? 00664 

02 00665 
C? 00666 

0? 00667 



0? 0066S 
0? 00669 
0? 0066A 



02 00668 
0? 0066C 
0? 0066D 
02 0066E 
02 0066F 
02 00670 
0? 00671 



6 A Aoo48A 
6*Bon9AD 
6A400000 
6*800*6?" 



2X000003 A 
6*300*67 
2HC30202 A 

2200O90F 
6*000000 X 

0*800702 



6**00*68 

2KC3OP01 A 
6*00070E 



38E007CF 
32FQ07D0 
*6E0O000 X 

46F0OG01 N 
2210000* A 
4 l0O7BF 
3$EooOOO X 



Backup command verb i3o 

BACKUP FQU « 

BAUSP3 GETFJFLD GET FTlE NAME 

EAL#SR4 FID x ACCTj PSwOj TF PRESENT 

BALjR4 FMTELCL SAFETY CLBSE 

BAL/SR4 FLBP TEST IF FILE EXISTS 

#E# FRR8RJ * 

#E# GR8UP 03* C80F»02# SUBC8»DEi02 # 

•E* DESCRTPTT8NI * 

*E* TME FILE NAMED 8N THE BACKUP 8R GET CBMMaND * 

♦£# D9ESN»T EXIST. * 

*«**•«*«#«•#**•••««#«**«#*#• *#♦####♦#*####»##♦#*#### #•••«#**####**•#**** 

Cl#Ro 3 OSES FILE EXIST 

BNE *♦* IT EXISTS. 

Ll*Dl X»030?02» ERR8R C8DE & SuBCSDF 

LliRo CLEANSTACK SIMULATE 

B T$ERR BALi«t 

# 

CALIjR QFTPQ GET A PAGE 

#E* FRR8R! * 

*E* GR8UP 03, C8De«02,SU9C8DE«01 * 

#E# DESCRTPTI8NJ * 

*e* failed ts get page t» read backup R^ceRD * 

###*#«*«##«« #«#*****#*#«*##«##««#« •#** #*#«#*#**# ###*♦###♦####♦#♦######♦♦ 

BCR/* «43 G8T PAGE 

Ll'Dl X«030?01» N8 PAGE# ERR9R 

B CMNERR1 TELL USER 5 AB&RT 

# 

# SWITCH ACC8UNT T8 JSYS £ D8 8PEN IN8UT 

LNj03 SYSACT 

LWj04 SYSACT*i 

XW#D3 JIACCN 

XW#D4 J{ACCN*1 

LIjRi 4 F8R INSUT 

CAL1M 8PENBKUP 

STW#D3 JIACCN REST8RE USERfS 



HOI 18*36 SEP 08j 

P367 0? 00672 

2368 OP 00673 

P369 C? 00674 

?37o OP 00675 

P371 0? 00676 

237? OP 00677 

P373 OP 00678 

P374 0? 00679 

P375 OP 

?37* OP 0067A 

P377 OP 00678 

P378 OP 0067C 

2379 OP 0067D 

P3«0 OP 0067E 

2381 OP 0067F 

238? OP 006*0 

2383 OP 00681 

P384 0? 0068P 

2385 0? 00683 

?J8o 



175 

3bFonoot N 
0410O7D4 
32500140 N 
3550007E A 
32700005 A 
2U50O00A A 

2150OP00 A 
69200692 
0G67A 

O^PonOAO 
2*Aool23 
A**AEoO09 
2Q70OO0A 

2S70OO0P 
0^l0O7DA 

0^80O7D3 

6*4ooo00 
0*60O7Ei 

6800O010 



STL08P 



WRIT8UT 



STWjDa 

CALljl 

LWiR5 

SLSjRR 

LW#R7 

Al*R5 

BG 

FGU 

LCI 

LM*SR3 

5TM#SR3 

AI#R7 

SLSjR7 

CAL1#1 

CALl#« 

BAL#R4 
CALijfe 
B 
SPACF 



backup command 

J$ACCN+1 

rfadbkup 

MlTEL+13 
• P 

RB 

10 

512 

SIZER 

* 

10 

FLOPBUF+8 

#SR2#R7 

10 

2 

WRlTERC 

PGDR8P 

FMTELCL 

BKUPCAL 

PROMPT 

3 



VERB 

ACCOUNT 
READ IN BACKUP RECORD 
GET CURRENT RECORD SIZE 
CONVERT TO WORDS 



131 



SIZE 

WILL 
NO 



OF 
IT 



AN ENTRY 
FIT 



MOVE ENTRY 

TO RECORD 
NEW RECORD SIZE 

IN BYTES 
WRITE eUT THE RECORD Tfi BACKUP FlLE 
DROP A PAGE 
CLOSE THE BACKUP FILE 
SEND A CAL FOR TMf BACKUP PROCESS 



P387 

P388 
P389 

?39o 
P391 
P39P 
P393 
P394 
P395 
P396 
P397 
2398 
P399 
P400 



02 0068* 
0? 00684 72AQO00A A 
OP 00685 21A0OO03 A 
0? 00686 683 n68C 



0? 00687 
OP 00688 
OP C0689 



3SE0OO0O X 

3S?F n001 N 
0*80O7D3 



ABRTN FQU * 

LB#SR3 SR3 

CliSRg 3 DOES TMF BACKUP FILE EXIST 

BE OPENi NOj GO OPEN IT I0UT« 

#F* FRROR! # 

*E* GROUP 03, C0Df»OP # SUBC0De»03 * 

#E* DESCRIPTION! # 

*E* WE GOT AN ABNORMAL TRYING TO OPEN FjBaCKuP* * 

*E* ASSUMF IT»S BUSY S TELL USER TO TRY LATERt * 



STw*D3 JjACCN 
STWjD4 UlACCN*i 
CAL1,8 PGDROP 



RESTORE USER'S 

ACCOUNT 
GIVE THE PAGE BACK 



Hoi 



181 
2401 
240? 

2403 
2404 

2405 
2406 
2407 
2408 
24C9 
2410 
2411 
241? 

2413 
2414 
2415 
241ft 
2417 
2418 
2419 

2420 
2421 
242? 



36 SEP 08* 
0? 0068A 
0? 0068B 

0? 0068C 
0? 0068D 
0? 0068E 
0? 0068F 

C? 00690 
0? 00691 



»75 

22C3n?03 A 
6»00O70E 



02 00*92 
0? 00692 28C3nP0n A 
0? 00693 6*000000 X 
0? 00694 6*oon*8n 



backup csmmand vfrb i3g 

LIjOi X»03Q2G3» ERROR C8DE & SUBCfiDF 

B CMNERR1 TELL USER 



* 
OPENl 



28100002 A 
0*lOO7BF 
3SE0OG00 * 

3$Fooooi N 
22700000 A RDERT 
6«0OOft7A 



H#R1 

CALl#l 

STW # D3 

STWjD4 

LI*R7 

B 



FOR OUT MODE 

RESTORE USERtS ACCOUNT 

SET REC8RD INDEX TO 



8PENBKUP 

JlACCN 

JiACCN*l 


STLOOP 

#E* FRRORi * 

#E» GROUP 03, C0DF*OP, SUBC8DE*00 * 

*E# DESCRIPTION* # 

#e# the backup record is full & we can't add thg « 

*e* useR»$ Request, tell usfr & then gjob f?ll to * 

*e* do thf current record. • 

sizer fqu * 

li#d1 xt03o?o0« backup record full code 

BALiRo T*ERR TYPE ERROR MSG 

B WRIT0UT*1 

TITLF tjOB CBMMAND VERB* 



HOI 



18136 ! 


l£P 08 


2423 






2424 






2425 






2426 






2427 






2428 






2429 




02 


2430 


02 


00695 


2431 


02 


00696 


243? 


02 


00697 


2433 


02 


00698 


2434 


02 


00699 


2435 


02 


0069A 


2436 


02 


0069B 


2437 


0? 


0069C 




0? 


0069D 


2438 


02 


G069E 


2439 


02 


0069F 


2440 


02 


0O6A0 


2441 


02 


006A1 


244? 


02 


006A2 


2441 


02 


006A3 




02 


006A4 


2444 


02 


006A5 


244$ 


02 


006A6 


2446 


02 


0C6A7 


2447 


02 


006A8 


244* 


02 


006A9 


2449 


0? 


006AA 


2450 


02 


006AB 


2451 


02 


006AC 


245? 


02 


006AD 


2453 


0? 


006AE 


2454 


02 


006AF 


2455 


02 


006Bq 


2456 




02 


2457 


02 


006B1 



J8B C6MMAND VERB 
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♦#*#####################♦#*##*#♦##♦######»»♦#♦#♦##♦####«####♦#####♦###♦# 



0069b 

21100001 A 
6*20O8F7 
22C0O00O A 
223QO00C A 
6 A Aon8AQ 
21700004 A 
692Q08F7 
02200020 A 
0&10O100 N 
21700000 A 
6^3oo6C6 
6Alon995 
21800000 A 
6&1006A6 
0220OO2O A 
OAlOOlOO N 
6»0008F7 
0*lGO7E7 
21800000 A 
683006B5 

2180OC01 A 
6«30O6B7 
21800002 A 
6830O6BC 
218QO003 A 
6*300689 

21800004 A 
6**3006C4 
00*81 

2810O71D 



#F* 
#F# 

#F* 



NAMES U8B * 

purpbsfj the jbb command is used T8 inquire ints the * 

STATUS 8F BATCH J8BS. MULTIPLE SVSIOS ARE PERMITTED * 

8N A SINGLE J8B C0MMAND LINEt * 



«****•***# *«#•#*#*#«#*****#«#*•**## «#****#*« •«*•#«*#•#**#•* #•##«**«##**» 



J8B 



J8B2 



GIVEMEH 



FQU 
Cl'RI 

Ll/Di 
LI/R3 
BALiSRi 

CI#*7 

BG 

PUSH 

CI/R7 

BE 

BALiRi 

CI#SRl 

BQE 
PULL 

B 

CALIjI 

CI#SRi 

BE 

CI,SR1 

BE 

CIjSRl 

BE 

Cl#SRt 

BE 

CI#SRi 

BE 

fQu 

LliRl 



$ 

1 

SYNTAX 



01 

SCAN 

4 

SYNTAX 

2,R1 



MULJ8B 

HEX2BIN 



J8B2 

2iRl 

SYNTAX 
J8BCAL 



JCMPLT 

1 

URUNNQ 

2 

JwAlT?RN 

3 

JDNTEXT 

4 

JWAIT?8T 

* 

EHMSQ 



CLEAR DATA RECIEVINQ AREA 
L8AD ADDRESS WHERE DATA WILL BE PUT 
AFTER THE SCANj G8 T8 SCAN R8UTINE. 
D8ES THE FIELD CONTAIN M8RE THAN 
F8UR CHARACTERS* YES?ERR8R 



OSES THE FIELD CONTAIN ANY CHARS* 

N8j GET NEXT FIELD 

G8 C8NVERT FIELD T8 BINARY 

WAS AN ILLEGAL CHARACTER PRESENT 

YESi THERE WAS AN ERR8R. REST8RE BUF 

P8INTER. 

ISSUE THE J88 CAL. 

IS THE J8B COMPLETED 

YESi G» T8 THE J&B C8MPL&TED ROUTINE 
RUNNING 

THE J8B RUNNING RBUTlNE 
WAITING T9 C8MPUTE 
THE WATTING T8 ruN R8UTNE 



IS THE J8B 
YESI G8 T8 
IS THE J8B 
YESi GB T8 



IS J8B WAITNG F0R SYMB18NT 8UTPUT 
YESi GB T8 WAITING F8R 8UTPUT RQUTNE 

THE J8B NEVER EXISTED 8R JlD» IS 



HOI 18836 REP 08# 

2458 02 00682 

2459 0? 00*83 

2460 0? OC6B4 

2461 02 

2462 02 006B5 

2463 02 C06B6 

2464 02 

2465 0? 006B7 

2466 02 006B8 
?467 02 

2468 02 00689 

2469 02 006BA 

2470 02 006BB 

2471 02 

2472 02 006BC 

2473 02 006BD 

2474 02 C06BE 

2475 02 006BF 

2476 02 006C0 

2477 0? 006C1 

2478 02 006C2 

2479 02 006C3 

2480 02 

2481 0? 006C4 

2482 02 006C5 

2483 02 

2484 02 006C6 
02 006C7 

248B OP 006C8 

2486 02 006C9 

2487 02 006CA 
1* 



f 75 

22200004 A 
0*100790 

6»ooooiD 

006Bb 

22C3O90Q A 
6*0QO6BA 

006B7 

28C30901 A 
6»00O6BA 

0Q6BS> 

22C30902 A 
280006C6 

6*000000 X 
QOfiBk 

32CQOO0A A 
6ABQ0979 
32F0OQ0D A 
22C30903 A 
6 A B0O000 X 
3S>F2noo3 A 
220006C6 
6*000000 X 

Q06O 

2SC30904 A 
6«00O6BA 

006C6 

0^200020 A 

GM00100 N 

2U00001 A 

6*200010 

6*000697 



LIjR2 
CALIjI 

B 

JCMPLT fQU 

LliD1 

B 

JRUNNG FGU 

LI#Di 

B 
JDNTEXT FQU 

LI/Dl 
JBBMSG LI#R0 

B 
JWAIT2RN FQU 

BAL4SR4 

LW/D4 

Ll*Di 

BAL#SR4 
STWjD4 

LI#Ro 
B 

JWAIT29T ECU 

LI*Dl 
B 

MULJ9B PCU 
PULL 

CIjRi 
BLE 
B 
TITLE 



JBB COMMAND 
4 

WRITE 
PR6MPT 

ft 

XtQ30900» 
JBBMSQ 

$ 
XtQ3Q9Ql» 

JBBMSQ 

ft 

X»030902» 

MULJ8B 

T*ERR 

ft 

SR3 

BiNDeCBCD 

D2 

X»030903» 

TftERRTXT 

3*R1 

MULJ8B 

TftWRTERR 

ft 

Xt0309Q4» 

JBBMSQ 

ft 

2*R1 



VERB 134 

INDECIPHERABLE SEND BUT 
THE tEHt MESSAGE* 
G6 BACK 5 GIVE AN©JHER PRBMPT 

ERRMSG KEY F8R 'CqMPLETED* 
TELL USER I SCAN F8R M9RE 

ERRMSG KEY F&R fRUNNINGt 



ERRMSG KEY FdH ttfeESNT EXIST' 
T© LBBK F8R MBRE SYSIDS 
TYPE MSG 

PUT * BF USERS IN RUN QUEUE INTQ Dl 

G8 CBNVeRT NUMBER IN Dl 
CONVERTED NUMBER 
ERRMSQ KEY F8R »WaITINGS ' 
GET THE TEXT F8R MSG 
STBRE HFX NUMBER TNT© MSG 
TB CHECK F8R MORE SYSIDS 
WRITE MSG 

ERRMSG KEY F9R ♦W AlT jNG T9 8/P' 



PRBMPT 

JftB+2 

'SWITCH 



COMMAND VERB* 



Hoi 



lft*36 SEP 08* 


175 








SWITCH C8MMAND 


VERB 135 


2* 










*#**##«#«##**««**#«*«##«*#*##### #*«**•«««««##«#**««#*#«** ♦##*#####♦###*# 


3* 










#F* 


name: 


SWITCH 


# 


4* 










*F* 


PURPasrJ 


THE SWITCH 


CQMMAND IS USED Tfi Spy AND RESET * 


5* 










#F# 




THE 6 PSEUDO»SENSE SWITCHES IN THE USER'S TCB« * 


A* 










#F* 




SWITCH SETTINGS 


1 MAY N8T BE CHANGED EXCEPT AT * 


7# 










#F* 




J8B STEP. 


* 


ft* 










«#*«*###*»##***«#«#****#*»«*####«#«*»«#«#*»***#«#«###«#«« #41 **#««# #*##«#* 


q# 




02 


00dC» 




SWITCH 


FGU 


* 




10* 


0? 


006CB 


28300001 


A 




Ll*R3 


JSTEP 


ARE WF 


11* 


02 


006CC 


31300000 


X 




CW#R3 


JjTELFLGS 


AT J8B STEP 


IP* 


0? 


006CD 


68400ft2F 






BAZ 


NTJBST 


N8j ILLEGAL 


13* 


02 


006CE 


21100001 


A 




CIjRi 


1 


A NULL ARGUMENT MFANS 


1** 


0? 


006CF 


682006FF 






BLE 


DISPSW 


DISPLAY CURRENT SETTINGS 


IF* 




02 


006DW 




SWGKEY 


FQU 


i 




If* 


0? 


006DQ 


6 A Aoo48A 






BAL#SR3 


GFTFIELD 


SCAN F8R SET 8R «SET 


17* 


0? 


006D1 


2160007E 


A 




CI,R* 


U» 


IS TERMINAT8R C8NRECT 


1ft* 


0? 


006D2 


6930O8F7 






BNE 


SYNTAX 


N8 


19* 


02 


00603 


21700004 


A 




CI/R7 


4 


MAXIMUM KEYWORD Size 


20* 


02 


006D4 


692008F7 






BG 


SYNTAX 


T88 BIGj STBP NOW 


21* 


0? 


006D5 


7SC0O00C 


A 




LB#Di 


01 


CHECK ©NLY 1ST CHaR 


2?* 


0? 


006D6 


21C0O0D9 


A 




CI#Di 


fR» 


IS IT RSET 


23* 


02 


006D7 


6*3006DC 






BE 


SWRSET 


YES. 


24* 


02 


006D8 


21C0O0E2 


A 




CI#D1 


ts« 


IS IT SET 


2R* 


02 


006D9 


6930O8F7 






BNE 


SYNTAX 


N8, S8 ITtS ILLEGAL 


2A* 




02 


006DA 




SWSET 


FQU 


i 




27* 


02 


006DA 


22E0O03F 


A 




Ll#D3 


X»3F» 


T8 ST8RE 1?S F8R SET 


28* 


02 


006DB 


680006DD 






B 


**2 




29* 


0? 


0060C 


22E0O00O 


A 


SWRsET 


LI#D3 





T8 ST8RE 0»S F&R RSET 


30* 


02 


00600 


O^EOOIOO 


N 




PUSH 


D3 


SAVE SET/RSET FLAG 


31* 


02 


006DE 


2SBQO006 


A 




LI#SR4 


* 


L88P CNTR F8« 6 SWITCHES 


32* 


02 


006DF 


28F0O00O 


A 




LI#D4 







33* 


02 


QO6E0 


6 a Aqo48A 




QFTSW 


BALjSR* 


GETFIrLD 


SCAN F8R SWITCH NUMBER 


34* 


0? 


Q06E1 


31C0O71A 






CW,Di 


TXALL 


IS IT ALL 


35* 


02 


006E2 


6930O6E5 






BNE 


$4-3 


NB 


3A« 


02 


C06E3 


22FQO03F 


A 




L I #04 


X?3F» 


YES* ALL 6 SWITCHES 


37* 


02 


006E4 


6 8 0006F6 






B 


GFTSWX 




3ft* 


02 


006E5 


217QO001 


A 




CI*R7 


1 


IS FIELD LENGTH StNGLE DIGIT 



HOI 



39* OP 



40* 
41* 
4P* 
43* 
44* 

4R* 

46* 
47* 

to* 

5n* 

51* 

5?* 
53* 
S4* 
55* 
56* 

57* 

58* 

59* 
60* 
61* 
6?* 
63* 
64* 
6R* 

66* 
67* 
68* 
69* 
70* 
71* 
7?# 
73* 
74* 
75* 



OP 

0? 
0? 
OP 
OP 

OP 
0? 
0? 
OP 
CP 
OP 

o? 

0? 



SEP 08j 
006E6 
006E7 
006E8 
006E9 
006EA 
006EB 

006EC 
006ED 
006EE 
006EF 

006F0 
OO6F1 

006^2 

G06F3 



'75 

6»3f)0«F7 
7<J5onooC A 
2l50noFl A 
6910O8F7 
815onoF6 A 
692on«F7 
4*500004 N 
22C00040 A 
3*500005 A 
2$CAoOOO A 

4»FoonoC A 
2X6ono6B A 
6930O6F6 
6*B006E0 



0? 

OP 



C? 

0? 
0? 
CP 
0? 
0? 

c? 

OP 
OP 

OP 

c? 

0? 
OP 



006F4 2*C3nB00 A 

OO6F5 6«00n70E 

02 006F6 

006F6 2160O05F A 

006F7 6»3006FA 

006F8 2X100001 A 

006F9 6*10n8F7 

006FA 0SE0O1OO N 

006FB 47E0O000 F 

006FC 2U00001 A 

0O6F0 6810O6D0 

006FE 6*000010 

02 006F>' 

O06FF 32Connoo F 

00700 2SConolA A 

00701 2220O0OP A 

00702 287FFFFA A 



BNE 

LB/RR 

CI#RR 

BL 

CI/R5 

B6 

ANDjR?? 

LIjDi 

LCWjRb 

SLS*D1 

BR/D4 

CI#R6 

BNE 

BDR#SR< 

*E* FRR8RI 
*E* OESCR! 

*E* 

LIjDi 

B 



SWITCH 

SYNTAX 

Oi 

M • 

SYNTAX 

»6< 

SYNTAX 

M4 

Xt 40' 

Rb 

0*R5 
Dl 
»* ' 

GFTSWX 

GFTSW 



C9MMAND 



VERB 

N8j 



ILLEGAL 
GET CHAR 
CHECK IF IN 



IF N0T ALL 
LIMITS 



136 



C8NVERT T8 BINARY 

MAKE A BIT T& SHIFT 

F9R RIGHT SHIFT 

SHIFT T8 PR6PER PsSTTIftN 

MERGE 

M8RE IN THIS GR9UP 

N8, Q8 ST8REt 

YES* G6 D8 IT 



#**•*#**««#*«**#«#•###***•###******##*««***#«*#«#***#*##* 

GR8UP 03* OB.QO * 

PTI8NI THF USER SPECIFIED M8RE THAN 6 SWITCH * 

SETTING IN A SWITCH SET 8R RESET G*8UP» # 

*#***#**«♦#*•**##»######*##«***«*«#**««#«#«#**#*#*****#•* 

XtQ30B00» ERR8R C8DE & SUBC8DE 

CMNERRl 



GETSWX 



DISPSW 



FOU 

CI*R6 

BE 

C!#R1 

BGr 

PULL 

STS#D3 

CliRi 

BGE 

B 

ECU 

LWjDi 

SLSjDi 

LIjRp 

LIjR7 



* 

•♦3 

1 
SYNTAX 

03 
JtJlT*SS 

1 

SWGKEY 
PR8MPT 

j:jmss 

P6 
P 

*6 



NEW GR8UP C8MING 

YES 

END 8F LINE 

N8, ERR8R# 

D8 ST8RE F8R SET 8R REsET 
IS THERE M8RE T8 SCAN 
YES 



GET CURRENT SETTINGS 
SHIFT LEFT ALL THf WAY 
F8R WRTTEt 
C8UNT 



HOI 



lais 


6 REP 08j 


»75 






SWITCH COMMAND 


VPRB 


7fc# 


0? 007C3 


2SConooi A 


cs*Leep 


SLSjDi 


1 


CHECK A B 


77* 


0? 00704 


6*800707 




BCS*8 


SW0NE 


IT»S ©N 


7ft* 


OP 00705 


22100718 




LI#Ri 


TXO 


IT'S BFF 


79* 


0? 00706 


6*000708 




B 


**2 




80* 


CP 00707 


22100719 


SwSNE 


LI#R1 


TXt 




81* 


0? 00708 


0H0O79O 




CAL1,1 


WRITE 


WRITE THE 


8p* 


0? 00709 


6^700703 




BlRiR7 


DSWL9»p 


D8 NEXT 


83* 


0? 0070A 


6^000010 




B 


PR8MPT 




P488 








TITLE 


! BATCH C8MMAND 


VFRB» 



137 



8NE OR ZER© 



N01 



1*136 REP 08* 
P489 02 
2*90 0? 007QB 
P491 OP 00?0C 
P49P 0? C07oD 


»75 

Q070& 

1260O73A 
22C0O000 A 

6*oonnC8 


BATCH2 


FGU 
LD#R6 
Ll#Dt 
B 


Batch cqmmand verb 

* 

batch imn fbr lsad 

n8 further scan 

gr&up? g8 tb l8ad 


2493 






TITLE 


!ERR$R MANDlINGt 



l3g 



HOI 



18836 
252? 

2523 

2R24 
2R2R 
252* 
2S27 
2R2R 
21529 
2R30 

2531 
?53? 

2533 
2534 
2535 
2536 
2537 
2538 
2539 
2540 



SEP 08* '75 



02 0070& 
02 00?0E 2800O903 
02 007oF 6*000000 X 



ERR8R HANDLING 139 



♦D* 
#D» 
#D# 
»D* 
*D# 
#0# 
#D* 
♦ D* 

#0# 
#D# 

#D# 
«D# 



NAME! 
CALLJ 



CMNERR1 

CMNERR1 



* 

* 

# 
* 

# 

# 

D1 CQNTAINS THE GR8UP C8DE (3)j ER*8R C8DE# & SUBCODE* 

TKTERFACF! __ * 

# 



DESCRIPTI8N5 

THIS IS A C8MM8N ENTRY P8INT F&R REP8RTING 
TFL ERR8RS T8 THE USER. EXIT IS EVENTUALLY T8 
PR8MPT, ALL8WTNG ThE USER T8 QUIT 0R C&NTJNUE 
THE INTERRRUPTED SPERATIftNi 

INPUT! 



T*ERR - T8 GFT AND PRINT THE ERROR MSG 
SYN1 . T8 CLEAN UP TEL»S STUFF 

CMNERR1 FGU * 

LIjRo SYNl SIMULATE BAL 

B T*ERR PRINT ERR8R MSG 

TITLE «TABLfS* C8NSTANTS* AND SUCH* 



HOI 



181 

PP541 
254P 
2S43 
PS44 
P545 
P54fc 
2547 
2B48 
1* 
p# 

2549 

255n 
PBS1 
1* 

p* 
2556 

2557 

2558 

PS61 
256P 
2B63 
2567 
256* 
2575 
P576 
2577 
2578 
P579 
2580 

2581 

258? 

2583 



36 SEP 08* «75 

op oo7io OUA40000 



OP 00711 
CP 00712 
OP 00713 
OP 00714 
OP 00715 
0? 00716 
0? 00717 
OP 00718 
OP 00719 
0? 0071A 
OP 0071B 



OP 0071C 
OP 0071D 
0? 0071E 
OP G07!F 

0? 007g0 
OP 00721 
OP 007PP 
OP 00723 
OP 00724 
OP 007P5 



0? 00726 
OP 00727 
OP 00728 
OP 00729 
0? C072A 
0? 007pB 
OP 0O72C 



0000001° 
C00Q001& 
EXT 
OOOOOOll 



5^404040 
7 A E2F8E2 
DH54040 
D3D74C40 
DSD64040 

D*D54040 
D6E5rF5D9 

FU404C40 
FX404040 
C1D3D340 
00600000 

R 

ft 



0^000000 
CSC8*F4G 
7^400000 
0«20000B 
D3C9DBC5 
40404040 

15000000 
1&5AO00O 
C74QOP09 
01000008 



OUOOOoFo 
0U0OOOF9 
OUOOOOCl 

ouooooc* 

C5C4C9E3 
4U4Q4040 
Q3D7t303 



STKINIT 

DOLL 

SYS 

HE 
LP 
NO 

OVER 

TXc 

TX1 

TXALL 

SUA60 

EXLYBIT 

©PfNBIT 

NBIT30 

TENTHOU 

CARRETRN 

EHMSG 

FLAGS 
LMS6 



RETN 

FLOPBITS 

NAMEVLP 

# 

* BEGIN 

# 

FoF9 
ClC6 
EDITA 
PCL 



tables* constants* and such 

6EN#16*16 TSTAKSZjC TO JNlTt TELSTAC* SPD 



1*0 



TEXT 
TEXT 

TEXT 
TEXT 
TEXT 

TEXT 

TEXT 

TEXT 

TEXT 

TEXT 

DATA 

ECU 

FQU 

FQU 

FQU 

DATA 

DATA, 4 

DATA 
TEXT 
TEXT 
DATA 
DATA 
DATA 
DATA 



» ISYS* 

tME» 

tLP« 

»N8? 

f eN t 

i&yERt 

?o» 

M * 
f ALL' 
X«60000C» 
Y04 

Yooa 

XFFFD 

Y0001 

XiQDOOCCOO* 

X f C5C86F40 1 1 X t 7C400000 » 



SUA 60»XX CODE 

EXECUTE 8NLY BIT TN JjcXLY 

OPEN BTT IN DCB < X?Q02o000O f ) 

FOR CHARGES IN PENNIES. 



xtooaooooBi 

»LINE! 
t t 

X»15000000» 
Xf 155A00OOI 

X»C740020« f 
X»OlOOQ008i 



LINE * FOR TERMINAL 
MESSAGE (FILLED) 
FOLLOWED BY C*t 

WORD t OF FLOP PLIST 



D0UBLEW6RD TABLE 



BOUND 
DATA 

DATA 

TEXT 

TEXTC 



XtF0»jXfF9t 
X»Cl»#X»C6! 
IFOIT t 
i PCL i 



HOI 1M36 « 


?EP Q8j 


>75 






TABLES* C8NST 


P584 


CP 


0072D 


4U404040 


A 




TEXT 


t t 


PR8K 


0? 


C07PE 


03C6t4D7 


A 


FDP 


TEXTC 


fFDPt 


P58* 


OP 


007?F 


4U404040 


A 




TEXT 


! t 


P587 


0? 


00730 


C6C4H740 


A 


FDPl 


TEXT 


I FDP 




0? 


00731 


40404040 


A 








?S88 


OP 


00732 


E4D5f4C5 


A 


UNDER 


TEXT 


tUNDERf 




OP 


00733 


D9404040 


A 








PS B *J 


OP 


00734 


C4C503E3 


A 


DElTAl 


TEXT 


tDELTAt 




0? 


00735 


C1404040 


A 








?59o 


OP 


00736 


0SC4C5D3 


A 


DELTA 


TEXTC 


tDELTAf 




OP 


00737 


E3C14040 


A 








P?591 


OP 


00738 


< *t5f-4C9 


A 


EDIT 


TEXTC 


fFDITf 




OP 


00739 


E34Q4040 


A 








259p 


CP 


0073A 


0SC2rtE3 


A 


BATCH 


TEXTC 


tBATCHt 




OP 


0073B 


C3C84040 


A 








?593 


CP 


0073C 


0^D3fqD5 


A 


LINK 


TEXTC 


»LINK» 




0? 


0073D 


D84Q4040 


A 








PR94 


OP 


0073E 


07D4f5E3 


A 


METASYM 


TEXTC 


fMETASYMf 




c? 


0073F 


CIE2F8D4 


A 








?59R 


OP 


00740 


0*C6D6D9 


A 


FBRTRAN 


TEXTC 


»F8RTf 




OP 


00741 


E34Q4040 


A 








?B96 


OP 


00742 


0&D3D6C7 


A 


L6G8FF 


TEXTC 


!L8Q9Nt 




OP 


00743 


D6054040 


A 








PR97 


CP 


00744 


0&C2fiE2 


A 


BASIC 


TEXTC 


♦BASIC* 




OP 


00745 


C3C34040 


A 








2598 


0? 


00746 


0*E2C8D6 


A 


xsnew 


TEXTC 


tsnewt 




OP 


00747 


E6404040 


A 








PR99 












BBUND 


8 


?*00 


0? 


C0748 


0*D*7AE2 


A 


TMSSI 


TEXTC 


tMlSI t 




OP 


00749 


C94Q4040 


A 








2601 


OP 


0074A 


4 D47AC7 


A 


TMIG8 


TEXTC 


tMSGSt 




0? 


0074B 


D6404040 


A 








P^O? 


0? 


0074C 


0*D47AD3 


A 


TMJL8 


TEXTC 


fM9L9f 




0? 


0074D 


D6404G40 


A 








P603 


OP 


0074E 


Q4D47AC4 


A 


TMjD© 


TEXTC 


»M;Dei 




0? 


0074F 


D6404040 


A 








P604 










# 
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HOI 18J36 SEP 08* '75 
2605 
2606 
2607 



TABLES* CONSTANTS* AsjD SUCH 
# END 8F D8UBLFW8RD TABLE 



1*2 



260* 

2609 

2610 



2611 

2612 
2613 

2614 

2615 

2616 
2617 

2618 
2619 
2620 

2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 



02 00750 
0? 00751 
02 00752 
02 00753 
02 00754 
OP 0075S 
02 00756 
02 00757 
02 00758 
02 00759 
02 0075A 
02 0075B 
02 0075C 
02 00750 

02 0075E 



02 00790 
02 00791 
02 00792 
0? 00793 



02 00794 
02 00795 
02 00796 
02 00797 
02 00798 
02 00799 



C9Dsn7E4 
E34ofBD9 
D9D60960 
D9C5F3D9 
E*404040 
D8E4f9£3 
6*404040 
4U40F6C9 
C*E3f!87E 
40404040 
4Q40H3C9 
D5C5F27E 
40404040 
D506D5C5 



lWOOOOOO 
FOOOOOOO 
000OO943 
00000943 
00000106 

00000050 



UOOOOOO N 
30000000 A 
8000OC01 A 
80000002 A 



# 
PARMSQ 



TEXT 



« INPUT ERRQR.RETRYf 



SKMSG 
WIDTH 



TEXT 
TEXT 



LLINES TEXT 



N8NE 

* 

PATCH 

* THIS IS 

♦ ADDRESS 
# 

WRITE 



IOUIT f 
t WIDTH- 

• LIKES. 

IN8NE! 



TEXT 

RES 50 
THE GFNFRAL PLIST 
MUST BE IN Rl AND 



F8R WRITING THR8UGH THE *lUC DcBt THE BUFFER 
THjr BUFFER SIZg MUST Be In Rgt 



GEN*8jP4 

GEN*4*?8 
GEN*1,31 
GEN*1 *3l 



xui»*muc 

3*0 

1*R1 

1*R2 



* PLIST F8R READING USER C»MMANDS INT8 TELBUF IN USE^tS C8NTEXT 

# 

READ 



GEN*gjp4 
QEN*7*?5 
GIN* 1 m%\ 
GENjIj^i 
DATA 

GEN* tisi 



XtlO»jMJUC 
Xt78»j0 

0*ABNRET 
0*ABNR£T 
TELBUF 
0*80 



moi 



ian& $ 


5EP 08* 


*75 






P633 










• PLIST 


P634 










* 


263* 


0? 


0079A 


l^Oonooo 


A 


8PENME 


P636 


OP 


0O79B 


OOOOAOOO 


A 




P637 


0? 


C079C 


OU040000 


A 




2638 


0? 


0079D 


00OOF4C3 


A 




2639 










« 


2640 










* PLIST 


2641 










# 


264P 


OP 


Q079E 


10000133 


N 


RKUSR 


2643 


0? 


0079F 


B&OOOCIO 


A 




P644 


0? 


0O7A0 


00000341 






264R 


OP 


007A1 


8000O003 


A 




?646 


CP 


007A3 


OOOOOOOO 


N 




2647 


OP 


007A3 


8O00O003 


A 




2648 




00000006 




RWUSRSZ 


2649 










# 


2650 










# FIRST 


2651 










■» 


265p 


o? 


007A4 


1100O133 


N 


WU8R 


5653 


0? 


007A5 


BOOOftOtO 


A 




2654 










# 


265R 










# PLIST 


2656 










♦ 


2657 


OP 


007A6 


14000133 


N 


8PUSR 


26B8 


0? 


007A7 


C»48oP19 


A 




2659 


OP 


007A8 


00000341 






2660 


OP 


007A9 


00000341 






2661 


OP 


007AA 


OOOOOOOA 


A 




266P 


CP 


007AB 


OOOOOOOP 


A 




2663 


OP 


007AC 


80000002 


A 




2664 


OP 


007AD 


00000002 


A 




P66R 


OP 


007AE 


ooooocto 


A 




P666 


OP 


C07AF 


OlOOOPOP 


A 




P667 


OP 


007BO 


067AP4£2 


A 






OP 


007B1 


C8D9F"240 


A 




?BOn 


CP 


007BP 


0S00OP02 


A 





TABLES* C8NSTANTS* AND SUCM 
FBR A iMEl SPECfFICATlSN(©P LABEL-UC) 

GENj8jP4 Xil4t#0 
GENii#»,4*lP QjX'At j0 
GEN#16*16 4*0 
GENj3P CiUCf 

T9 READ AND WRITE TMg LBQIN RECQRD 

GEN#8jp4 X*10»#MtTEL MBDIFY X»10» T8 USE FBR WRITE 

DATA XtB80O0010» 

GENjSP 9PERR 

PZE #R3 BUFFER APDR IN R3 

GEN#3P L8QSI2E*LeGSlZE+LBGSIZE*L8QSl2E 

Pit *R3 KEY ADDR IN BUFFiR (R3) 

FCU $«rwusr 

TwB W9RDS FBR RwUSR T© D8 WRITE 

6EN*8jp4 X»H »jM!TEL 

DATA X?BOOOOC10» KEY N8T SET 

USED T8 0PEN THE LBGIN FILE fBR A CHANGE IN PASSWORD 
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GEN*8,p4 Xti4»#MlTEL 

DATA X?CB480219f 

DATA BpERR 

DATA BPERR 

DATA 10 

DATA 2 

PZE #p 

DATA P 
DATA lit, 
GEN#«*Rj*j8 1#o*2jP 
TEXTC »JUSERS» 

GENj8j8#8j8 2#0#2jP 



RETURNS IMMEDIATELY 

TRIES 

DIRECT 

MODE (IN R2) 

SAVE 

KEYM 



Hoi 



18134 REP 08j ' 


75 








TABLES* CGNSTANTSj 


i AND SUCH 


2669 


0? 


007B3 


7AE2?8£2 


A 


SFCAC 


TEXT 




ttSYS» 




267o 


0? 


Q07B4 


40404040 


A 






TEXT 




f t 




2671 


0? 


00785 


0^010202 


A 






GEN/8, 


R») 


S,8 3#1*2*? 




2672 


0? 


007B6 


D^EFaoSF 


A 






DATA 




XtDFEF803Fi 




2673 


0? 


007B7 


A^C BF9F 


A 






DATA 




X»AFCoBF9F« 




£674 










# 












267R 










* 












2676 










* 


DEVICE 


PLIST 


FOR TABS COMMAND 


VERB* 


2677 










# 












2678 


0? 


007B8 


2*000000 


N 


TABPL 


GENjSj 


24 


x»28Sm:uc 




2679 


02 


007B9 


80000000 


A 






GENil j 


31 


1*0 




2680 


0? 


007BA 


OOoonooo 

OOOOnOOO 


A 






GEN/64 









2681 


02 


007BC 


OOoonooo 
oooonooo 


A 






GENj64 









2682 


0? 


007BE 


OOoonooo 


A 






GEN#32 









9683 










# 












2684 










• 


FUST 


FOR ©PrMNG THr BACKUP 


RFC8RD 


2685 










# 












$686 


0? 


007BF 


14000133 


N 


8PENBKUP 


GEN*gj 


24 


X»i4t#MiTEL 




2687 


0? 


007C0 


F748O019 


A 






DATA 




XtF7480019t 




2688 


02 


007C1 


00000690 








DATA 




RDERT 




2689 


02 


007C2 


00000684 








DATA 




ABRTN 


ABNORMAL RETURN 


2690 


02 


007C3 


80000009 


A 






Pit 




♦SR2 




2691 


Og 


007C* 


oooonaoo 


A 






DATA 




2048 


MAXIMUM RECSRD SIZE 


2692 


02 


007C3 


00000002 


A 






DATA 




2 


KEYED FILE 


2693 


02 


007C6 


00000002 


A 






DATA 




2 


DIRRECT ACCESS 


2694 


02 


007C7 


80000001 


A 






GENil i 


1 4- 


•17 IjojRi 


M6DE 


2695 


02 


007C8 


00000002 


A 






DATA 




2 


SAVE 


2696 


02 


007C9 


00000007 


A 






DATA 




7 


MAXIMUM KEY LENGHt 


2697 


02 
02 
02 
02 


007CA 
007CA I 
007CA H 
007CA 3 


01 
00 

03 
03 


A 
A 

A 
A 






DATA j j 




1jQ*3j3 




2698 


02 
02 
02 


Q07CB 
007CC 
007CD 


0**C67AC2 
C1C3D2E4 
D7404040 


A 

A 
A 






TEXTC 




tFtBACKUPf 
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HOI IRS 
P699 



P70O 

2701 
P70p 
2703 
2704 
270B 
2706 
2707 
270R 
P709 

27io 

5711 

271P 
2713 
2714 
2715 
2716 
2717 
271ft 
2719 

2720 

2721 
272P 
P723 
P724 
272B 

2726 
P727 
272A 

2729 

P730 



36 SEP 08* 
0? 007CE 
OP C07CE 1 
0? 007CE 2 
0? 007CE 3 
OP 007CF 
0? 007DQ 



0? 007D1 
OP 007D2 
OP 007D3 



OP 007D4 
0? 00705 
OP 00706 
OP 00707 
0? C07D8 
OP Q07D9 



0? 007DA 
OP 007DB 
0? 0070C 
OP 007DD 

C? Q07DE 

CP 007DF 
0? 007E0 



75 

02 
01 

02 

08 

7*E2F«EP 

40404040 



TaBLESj Constants, and such 

DATA,! 2*1*2*2 



14S 



0L00OO01 A 

0*000001 A 
0900OO01 A 



1Q000133 N 
6*000010 A 
00000690 
80000009 A 
0000O8O0 A 
0000070^ 



H000133 N 
3*000050 A 
80000009 A 
80000007 A 

0000O7DF 

06CpriC3 A 
02E40740 A 



SYSACT TEXT 



tgSYS 



ACC6UNT 



# PLIST TO QET COMMON PaGE FOR SHOW COMMAND 
GC9MNPG GEN*«*P4 X»C»*1 GET 1 COMMON PAGE 
* 

# PLIST T8 GET A PAGE FOR THE PURPOSE OF READING IN THE BACKUP REC8*D 
6ETPG GEN*8*7*|7 Xto8»*0*l 

* 

♦ PLIST T8 ReLfASE A PAGE AFTER WRITING OUT THE BACKUP RECORD 
PGDR8P GEN*gj7'17 Xf09'*0*l 

# 

* PLIST FfiR READING THE BACKUP RECORD 
# 

READBKUP 6EN*8*p4 X'1o»*MjTEL 
DATA X»B8000010» 
DATA RDERT READ ERROR RETURN 

GEN*1*14#17 1*0*SRP BUFFER ADDRESS 
DATA 3048 BUFFER SIZE 

DATA BKUPKEY KEY ADDRESS 

# 

♦ PLIST FOR WRITING OUT THE BACKUP RECORD 
* 

WRITERC GEN*8,p4 X«11!#M«TEL 
DATA Xf380000R0» 

GEN* 1*1 4* 17 l*o*SRp BUFFER ADDRESS 
P2E #R7 SIZE 8F REC8RD 

DATA BKUPK^Y KEY ADDRESS 



BKUPKEY TEXTC 



'BACKUP' 



Hoi 1M36 SEP OB* • 75 
P731 
P73P 
P733 
?734 



OP Q07E1 
0? G07Eg 
C? C07E3 



P735 
P73* 
9737 
P738 
?73<3 

?74o 
P741 

P74? 

P743 
P744 
?745 
P74* 
t# 
?* 

3# 
4# 

5* 

P747 
P74« 
P749 
P730 
2751 
?75p 
P7S4 
2755 
P75ft 
P7S7 
P75S 
1# 
?« 

3* 



0? G07E4 
0? 007E5 
OP 007E6 



Cp 007E7 
0? 007E8 



0? 007E9 
CP 007EA 
C? 007EB 



OP 007EC 
0? 007ED 



0? 007EE 



OP 007EF 



0*000000 A 

0*C6C9D3 A 

4040 A 



ouoooooo a 

SQ00OO0O A 
OU000106 N 



2^00ni33 N 
OUOOOOOO A 



lAOQOOOO A 
80000040 A 
0000D3F1 A 



8*000009 A 
8S0OO009 A 



1^800000 A 



06200000 A 



ADDRESS 8F BUFFER 



J8SENT STATUS FPT 



TABLES* C8NSTANTS, AND SUCH 146 

* PLIST T8 N8TTFV THE SYSTEM THAT WRE IS A FILE WHICH MUST Be BACKLDUP 
# 

BKUPCAL GEN#8*p4 6,0 

TEXTC fFILLt 

« 

# 

# plist f»r THp message csmmand 

# 

SENDMES GEN*gjp4 X»0'*0 

GEN,U3l 1,0 

DATA TFL8UF 

# 

* PLIST FftR THE U8B C8MMAND 

J8BCAL 6EN#8jp4 X»2F!,M!TEL 
DATA o 

* PLIST F8R TMF FRASE C8MMAND 
# 
ERASFPT GEN#AjP4 X'1A!*0 

PZE #X*40» 
DATA fLl» 
# 

# plist T8 get and release spfcul bufffr 

* PAGES IN CftNTEXT AREAt 

• 

GPFPT 6EN*1*7*P4 1j4jSrp GET PAGE 
FPFPT GENj1j7#P4 IjRjSRP RELEASE PAGE 
# 

* PLIST F8R THE DEC8UPLE C8MMAND 

# 

MDCPL GENj8«1j23 X»iD»M*0 
* 

* PLIST FBR M|CT (C8UPLE) 
# 
MCTCPL GENjgj^jpi 6*1,0 



MiLDEV 



Hni 



188 

4* 
R# 
A* 
7# 

8* 

9* 
10* 
11* 
12* 
13* 
U* 
IB* 

16* 
17* 

18* 
19* 
20* 

21* 
22* 

23* 

2774 
277R 
2776 
2777 
277ft 
2779 
2780 
2781 
2782 
2783 
2784 
278F5 
2786 
2787 
2788 
2789 



36 REP C8j 
C2 0O7F0 
02 007F1 



C2 007F2 



02 007F3 
02 007F4 
02 007F5 



02 007F6 
Cp 007F7 



02 C07F8 



02 007F9 
02 C07FA 
02 007FB 
02 007FC 
02 007FD 
02 007FE 
02 007FF 
02 00800 

02 coSci 

02 C0802 
02 00803 
02 Oo8o4 
02 00805 



»75 

0*000000 A 
80000004 A 



QUOOOCOO A 



6 2oonoo A 
OlOOOOOO A 
8000000* A 



8700O00A A 
80000009 A 



0*000000 A 



TABLES* CSNSTAIMTS, AND SUCH 
DATA X»0*000000t 
Pit *R4 
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F3F34040 
F3F54040 
F3F74Q40 
F7FQF1FS 
E«E3riE3 
C5E2F3C4 
C&C1D7D3 
E8E2F3C4 
E8Cin7D3 
D4C5D4D6 
CbE70BC3 
C4CiF3Cl 
E3C94040 



* PLIST F6R MI6ETID CAL 
# 

GETID GENj8j24 X»DtjC 
# 

* PLIST F8R MlCT CAL (SEND COMMAND) 

# 

CTFPT GENU8j3*21 6*1#0 

DATA X»01QOG0OO» 

PZE *R4 
# 

* PLIST F6R MJCVM CAL (hAPPER) 
* 
MAPIT GEN*1*7#24 i*7*SR3 

PZE *SR2 
# 

* PLIST F8R MIMASTER BEF8rE Sua 

* 

MSTRMdDE GENi8jp4 8#Q 

* TABLE 8F CSNVFRSI8NS FBR TERMINAL C8MMAND 

«33 » 
»35 t 
t37 f 
«70l5f 

♦STAT* 
tFSTD' 
»FAPU 
!SSTD» 
»SAPLt 
♦MEMe» 
♦EXECf 
IDATA! 

'TI • 



USED F8R Tp COMMAND 



PHYSICAL ADDRESS IN SR* 
VIRTUAL ADDRESS JN SRg 



TERHTAQi TEXT 

TEXT 

TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 

TEXT 
TEXT 
TEXT 
TEXT 



MEMSREX 

IXECUP8RT 

DATAP8INT 

TEXAS INSTRUMENTS? SERIES 700 



Hoi 



18J36 SEP C8i 


> >75 


2790 




0000000& 


2791 










279? 










2793 










2794 










2795 


0? 


00806 




00 




C? 


00806 


i 


01 




0? 


00806 


2 


08 




02 


00806 


3 


03 


279* 


0? 


00807 




00 




C? 


00807 


1 


0* 




0? 


00807 


2 


06 




0? 


00807 


3 


08 


3797 


02 


00808 




A 




0? 


00808 


1 


02 




0? 


00808 


2 


00 




02 


00808 


3 


00 


279ft 


02 


00809 




08 


2799 










2800 




ooooooo* 


2801 










280? 










2803 










2804 


02 


0080A 




0$ 




02 


0080A 


X 


0$ 




02 


0080A 


2 


05 




02 


0080A 


3 


Ob 


2805 


0? 


0080B 




00 




02 


0080B 


X 


ox 




02 


00808 


2 


ox 




02 


OO80B 


3 


ox 


280A 


02 


O080C 




01 




02 


OO80C 


1 


03 




02 


0080C 


2 


02 




02 


008CC 


3 


00 


2807 


02 


OO80D 




o& 


2808 











TABLES* CONSTANTS* AMD SUCH 
SlZETABl FGU *.TERMTA81»1 



♦SIZE ©E TERMTABl,2,3 ARE ALL THE SAME«PARALLEL TABLES.** 

« 

TERHTAB2 DATA, 1 0*1*2*3 COC TRANSLATION TABLE TA&LE 



1*8 



DATA, \ 0*4*6*8 



DATAji 10*2*0*0 



DUMMY*4*6*8 



DATA, \ 
BOUND 
SIZETAB2 EQU 



TI 



BaU>«BA<TERMTABs?Ui 



* IDLE ALGORITHM NUMBER TABLE 
T&RKTA&3 DATA,! 5*5*5,5 



DATA*1 0*1/1*1 



OATA,i 1*3*2*0 



DATA,1 5 
BOUND 4 



M33* MS5* M37* 7015 



DUMMY* ESTD* EAPU* SSTD 



SAPL* MEMO* EXEC* DATAPOJNT 



TI 



HOI 1M36 REP 08* f 75 TABLES* CONSTANTS* AMD SUCH 1*9 

?80<» 0000000* SIZETAB3 FGU BA ($) -BA (TERMTAB3) »i 

PftlO TITLE" » * 



Hoi 



i«: 


36 S 


SEP 08# 


»75 














8811 










# 










281? 










# THE FOLLOWING 


GROUPS OF C8DE / 


ikRE 


THE VECTOR AMPLIFIERS FOR T 


?813 










# AND continue: T 


YP£ OF COMMANDS, 


. THE COMMAND VERB IS TRANSLATE 


2814 










# 










?81«i 


0? 


0080E 


22Cooi?D 




ASSEMBLE 


LImD\ 


Parser 






281ft 


0? 


O080F 


1860O73E 






LD>R6 


MFTASYh 






?8l7 


0? 


00810 


6800OOC8 






B 


GROUP? 






2818 


C? 


00811 


2<2C00l?D 




COMPILE 


Ll'Dl 


PARSER 






2819 


0? 


00812 


18600740 






LD/R6 


FORTRAN 






2820 


0? 


00813 


680000C8 






B 


GROUP? 






2821 










# 










282? 


0? 


0081* 


1860O72C 




PCLCALl 


LDjRft 


PCL 






2823 


0? 


00815 


680000B0 






B 


SPCASP 




SET UNKLMN TO ST»P SCAN 


2824 










« 










282$ 


0? 


00816 


6 A Boo9AD 




FIDER 


BAL*SR4 


FID 




GO BREAK FID 


?8?6 


0? 


00817 


2850O060 


A 




LXjRr 


8NBIT+0VERBIT 




WAS OVER/ON SPECIFIED 


?8?7 


0? 


00818 


4*500000 


X 




LS#R5 


JITELFLGS 






2828 


0? 


00819 


6830013C 






BEZ 


TFSTSI 




NEITHER 


2829 


0? 


0081A 


28F08000 


A 




LI, 04 


FIPROC 




SET FLAG TO INDlCATEtt. 


2830 


0? 


Q081B 


47FQOOOO 


X 




STS#D4 


JITELFLGS 




tt.FILP HAS BEEN PROCESSED 


2831 


0? 


0081C 


E8000000 


A 




B 


•0 




EXIT 


283? 












TITLE 


»RUN AND LINK 


COMMAND VERBS' 



150 



LOAP 
INTO LMN 



Hoi 



18J 

P833 
P834 
283$ 
P83A 
P837 
P838 
P839 

2840 
P841 
P84P 
2843 

P844 
284B 

PS#* 

2847 

1# 
?848 

1* 



3i SEP 



0? 

OP 

c? 

OP 
0? 
0? 



08j 
02 

onSiD 
ooSie 

OOSlF 
0082Q 
00821 
00822 



OP 00823 
OP 00823 

op 0082* 

OP 00825 
OP 00826 



♦ 75 
0081^ RUN 

285FFFFE A 
4*500000 X 

3550OC00 * 
22COOOOO A 
1260O73C 
680000C8 

# 

* 

« 



4»Donooo x 

3$Dooooo x 
6AB0OO0O x 

6*00001* 



BREAKER 



RUN 
FGU 
LI'RS 

anD/Rs 

STW#RFi 

LD/R6 
B 



AND LINK C&MMAND VERBS 
i 

• p 

jsCPPe 
JiCPPe 


LINK 
QR8UPP 



Ibl 



Q8 L0AD LINK 



BRfaK PRBCESSINQ (RESETS BRK BIT) 



RES 

AND#DP NBIT30 

STWiDp JlTELFLGS 

BALjSR4 CPXBRfaK 

B BUFINT 

TITLE tVALlD TEL C8MMAND TABLES* 



UND9 CPX M6DE IF ACTlVp 



HOI 



un6 sep oa# 


175 






VALID TEL 


. C8MMAND T 


?* 


03 


00000 




VECT6R1 CSECT 


1 




3* 


03 


00000 


OSoooooo 


A 


N8P 






4* 


04 


00000 




V£CT8R2 CSECT 


1 




F* 


04 


00000 


02000000 


A 


N8P 






6* 


OF 


00000 




VfRBl CSECT 


1 




7# 


OF 


00000 


40404040 


A 


TEXT 


f ! 




9# 


OF 


00001 


C3D607E8 


# 
A 


CMND 


»cePYi 


jID6jPCL 




0? 


00001 


1260072C 


0? 








10* 


0* 


00002 


CSC4C9E3 


A 


CMND 


fEOITi 


*LD6jED?T 




03 


00002 


12600738 


02 








11# 


OF 


00003 


C7C5F340 


A 


CMND 


fGET'j 


B#GFT 




0? 


00003 


6«00OC0O 


N 








1?# 


OS 


00004 


D1D6C240 


A 


CMND 


t J08f i 


B* J8B 




03 


00004 


6*000695 


02 








IS* 


C« 


00005 


D3C905D2 


A 


CMND 


fLINKi 


jBjRUN 




0? 


00005 


6*00081D 


02 








14* 


OF 


00006 


D3C9F2E3 


A 


DCMND 


»LIST. 


#8jL1ST 




03 


00006 


6*000269 


02 








IF* 


OF 


00007 


D6C6f640 


A 


CMND 


»8FF'j 


LD6jL668FF 




03 


00007 


12600742 


02 








16* 


OF 


00008 


D9E4HF40 


A 


CMND 


tRUNfj 


BjRUN 




C3 


00008 


6*000810 


02 








17* 


OF 


00009 


C6C4D740 


A 


CMND 


fFDP«j 


B#FDPS£T 




03 


00009 


6*00O2EE 


02 








18* 


OF 


OOOOA 


D»E4C9E3 


A 


CMND 


iQUITi 


#BjQUIT 




03 


OOOOA 


6*000119 


02 








19* 


OF 


00008 


E2C806E6 


A 


CMND 


fSHQWi 


48jSH©W 




03 


00008 


6*000350 
ESClFFCS 


QS 








20* 


OF 


ooooc 


A 


CMND 


tSAV|! 


*B,SAVE 




03 


ooooc 


6*000000 


N 








21* 


OF 


0O0OD 


C4D605E3 


A 


CMND 


•D8NTt 


jBjDQNT 




03 


COOOD 


6*00O25E 


02 








2?* 


OF 


OOOOE 


E3C1TPE2 


A 


CMND 


tTABSi 


*Bjtabs 




03 


OOOOE 


6*0003Fo 


02 








33* 


OF 


OOOOF 


ESC5r340 


A 


CMND 


?SET?j 


B#SFT 




03 


OOOOF 


6*000000 


N 









SINGLE W8RD BRANCH VECtBR 
D8UBLEU<eRD BRANCH vpctbR 
SINGLE W8RD COMMANDS 



158 



HOI 



18J36 

24* 

25* 

2** 

28* 
29* 
30* 
31* 
32* 
33* 
34* 
35* 
36* 
37* 
3ft* 
39* 
40* 
41* 
42* 



SEP 08* 
0* 00010 
00010 
00011 

00011 
00012 
00012 
00013 
00013 
00014 

00014 
00015 

00015 
00016 

00016 
00017 
00017 
00018 
00018 
00019 
00019 
0001A 

0001A 
0001B 
0001B 
OOOlC 
OOOlC 
0001D 
0001D 
0C01E 

oooie 

0001F 
OOOlF 
00020 
00020 
00021 
000?1 
00022 



03 
OR 

03 
OR 

03 

OR 
03 

o* 

03 
05 

03 

OP 
03 
OB 
03 

on 

03 
0« 
03 

OB 

03 
OR 
03 

05 

03 

05 

03 

05 

03 

05 

03 
05 
C3 
C5 
03 
05 



»75 

04C5P3C1 A 

6*00080E 02 

D7C30340 A 

6*000*14 02 

E8E306D7 A 

6*000119 02 

C5DSC440 A 

68000119 02 

C2E8C540 A 

18600742 Q2 

E3D74040 A 

6*Q00PFC 02 

E2C5r)5C4 A 

6*000616 02 

C5C3C8D6 A 

6*000000 N 

E*404040 A 

6*000244 02 

D34Q4040 A 

1860072C 02 

C8404040 A 

6*000237 02 

C*40*040 A 

1860O72C 02 

C3404040 A 

1S60072C 02 

C5404040 A 

6*000238 02 

0^*04040 A 

6*00061F 02 

D*404C40 A 

63000119 02 

E2404040 A 

6*00028F 02 

D7Clf7C5 A 

6*000430 02 

E7C50840 A 



VALID TEL C8MMAND TABLES 



193 



CMND 


METAfjBjASSEMBLE 




CMND 


PCl»jB#PCLCALL 




CMND ! 


STePtjBjOUlT 




CMND I 


END»#B*QUIT 




CMND 


BYE»jLD6jL8S8FF 




CMND 


TP»jB#TP 




DCMND 


SENDuBjSPND 




DCMND i 


ECH8?,BjFCH8 




CMND 


U'^BiUDELT 




CMND < 


L '*LD6jPCL 


PCL LIST 


CMND i 


B»#B, BUILD 


EDIT BUILD 


CMND ' 


D*#LD6#PCL 


PCL DELETE 


CMND 


»Ci/LD6*PCL 


PCL C8PY 


CMND ' 


F'*8#EDIT0 


EDIT 


CMND < 


M'fB^MESSAGEO 


MESSAGE 


CMND 


|Q» jBjQUIT 


QUIT 


CMND 


'S^BjSTART 




CMND 


iPAQEf jB#PAGf 




CMND 


'XEQSBjQX 





HOI 



1*136 SEP 08* '75 



43* 
44* 

46* 

47* 

4*# 
49# 
50* 
51* 

5P# 

53* 



54# 



Sfi# 



5ft# 



57# 



58* 



59* 



03 Q0022 6*000000 N 

05 00023 C4C94040 A 

0? 00023 6*0005BC OP 

0* 00024 E2E3404O A 

03 00024 6*00060E 02 

OP 00025 E3404040 A 

03 0O025 6*000493 G2 

05 00026 D9404040 A 

03 00026 6^000000 N 

OF 00027 C/D64040 A 

03 00027 6*000?Eft 0? 



0* 
Oft 
Oft 
06 
04 
Oft 

0* 
04 

06 

Oft 
04 

Oft 

06 
04 

06 
06 
04 
0^ 
Oft 
04 
Oft 
Oft 



00000027 



Oft 00000 



00000 
00001 
00002 
00003 
00001 
00004 
00005 
00002 
00006 
00007 
00003 
00008 
00009 
00004 

OOOOA 
OOOOB 
00005 
OOOOC 
COOOD 
00006 
OOOOE 
OOOOF 



40404040 A 
4U404040 A 
D»C5P2»E3 A 
D6D9CS40 A 
6*000000 N 
D7D9DftC3 A 
C$C5r440 A 
6*0002E6 02 
D9C5F2C3 A 
E3404040 A 
6*000000 N 
C8E4f9D3 A 
C4404040 A 
18600738 OP 
C2C1F3C3 A 
C*404040 A 
6*000708 02 
C3C1DRC3 A 
C&D34O4O A 
6*00O9EF 02 
C3D604D4 A 

CSDSP340 A 



VALID TEL C8MMAND TABLES 
iDIf#BjDtSPLAY 
fST'jBjSTATUS 
»T'#B#TERMINAL 
»R'*8,RESFT 
l GS»#Bj CONTINUE 
••VECT8R1-1 



1&4 



CMND 
CMND 
CMND 
CMND 
CMND 

SIZVERB1 FGU 
# 

VERB2 CSECT 
* N8TE? CSECT DIRECTIVF FBRCES DBUBLEWBRD BOUNDARY 
TEXT t t 



CSECT LENGTH « NUM CMNDS 
D8UBLF*8RD COMMANDS 



CMND 



CMND 



CMND 



BUILDA CMND 



CMND 



CMND 



tRESTBREt jB/QFT 



iPR9CFED»jB#C8NTlNUE 



fRESETt#BjRESFT 



■ BUILDuLDftjEDIT 



!BATCMt#BjBATCH2 



fCANCFLf jB*CANCEL 



DCMND »C8MMFNTt j Bi COMMENT 



Hni 



18136 



60* 



61* 



6?# 



63* 



64* 



65* 



66* 



67» 



6«* 



69* 



7n* 



71 .# 



04 

06 

06 
0^ 
06 
06 
04 
06 
06 
04 
06 

06 

04 
06 
06 
04 
06 
06 
04 
06 
06 
04 
06 

06 

04 

06 
06 

04 
06 
06 
04 
06 
06 
04 
06 
06 
04 



REP OB* 

00007 

00010 

00011 
000C8 

00012 
00013 
00009 
00014 
00015 
0000A 
00016 
00017 
OOOOB 
00018 
00019 
OOOOC 
0001A 
C0018 
OOOOD 
OOOlC 
C001D 
OOQOE 

oooie 

OOOlF 
COOOF 
00020 
00021 

C0010 
00022 
00023 
00011 
00024 
00025 
00012 
00026 
00027 
00013 



t75 

6*00O25A 
C6D6D9E3 

F4404040 
68000811 
C3D6H5E3 
C»D5r4C5 
6800D2E6 
C*C5D3C5 
E3C54040 
1*6G072C 
C4C9P2D7 
D3C1F840 
6800OSBC 
D6E4P3D7 
E4E34040 
6*000258 
E2E3CiD9 
E3404040 
6800028F 
E2E3C1E3 
E4E24040 
6*0OO60E 
E3C509D4 

C»DSC1D3 
68000493 

D7D3riE3 
CSD54040 
6*000448 
D?ClF2E2 
E6D6D9C4 
6*000308 
C4C503E3 
C1404040 
6800O2F2 
D7D9C9D5 
E34Q4040 
6*000379 



02 
A 

A 

02 

A 

A 

02 

A 

A 

02 
A 

A 

02 

A 

A 

02 

A 

A 

02 

A LSTAT 

A 

02 

A 

A 

02 

A 

A 

02 

A 

A 

02 

A 

A 

02 
A 
A 
02 



VALID TEL C8MMAND TABLES 

CMND !FeRT4»*BjC8MP!Le 

CMND tCBNTlNU&tjBjCSNTIMJE 

CMND !DELETE»jLD6jPCL 

CMND !DISPLAY?*B# DISPLAY 

DCMND f 8UTPUT i s&* 8UTPUT 

CMND tSTART!#BjSTART 

CMND i STATUS ' j Bj STATUS 

CMND t TERM I NALt j Bj TERMINAL 

CMND fPLATENijBjPLATEN 

CMND t PASSWORD I j Bj PASSW8RD 

CMND ! DELTA t#B,DELTASET 

CMND tpRINTt#B*PRlNT 



155 



HOI 



1813 
7p* 



73* 
74* 
7 s ?* 
76* 
77* 
78* 
79* 
80* 



81* 

8?* 
83* 

84* 
85* 
8ft* 

87* 

88* 
89* 



6 SEP 08# 
Of 00028 
Of 00029 

04 0001* 

Of C0Q2A 

Of 0002B 

04 00015 

Of 0002C 

Of Q002D 
0* 00016 
Of 000?E 

Of 0002F 
04 00017 
Of 00030 
Of 00031 
04 00018 
Of 00033 

Of 00033 
04 00019 
Of 00034 
Oft 00035 
04 0001A 
Of 00036 
Of 00037 
04 OOOlB 

Of 00038 
Of 00039 
04 0001C 



»75 

D4C5F2E2 A 

CIC7CS40 A 

6800062E op 

C2C1C3D2 A 

e*D74C40 A 

6^00nf5F 02 

CS)E7r3C5 A 

DSC44040 A 

6800OR81 02 

E2E6C9E3 A 

C3C84040 A 

6*00ftfCB 02 

C*C5C3D6 A 

E4D7H3CB A 

6^000587 02 

C3D6F4D7 A 

D3C54G40 A 

6*00n38C 02 

CSD9C1E2 A 

C540404O A 

6»00ftB7D 02 

C<fCsrpE4 A 

C7404040 A 

6*000249 02 

E6C8CSD9 A 

CS404040 A 

680OO36E 02 



OOOOOOik 



04 OOOlD 
04 0001E 
04 C001F 
04 00020 



0060OO20 A 
OOOOOOCO A 
0*5000840 A 



VALID TEL C8MMAND TABLES 
CMND i MESSAGE i » B* MESSAGE 



CMNO t BACKUP t m Bj BACKUP 



CMND ?EXTEND»*BjEXTEND 



CMND iSWlTCHtjB#SwITCH 



CMND iDECSUPLEtjBjDECSUPLE 



DCMND tCeUPLEtjBjCeUPLE 



156 



CMND 



DCMND 



CMND 



?ERASE!#8,ERASE 



tDEBUGfjB, DEBUG 



»WHERE?#BjWHgRg 



*»VECT6R2«1 



CSECT LENGTH * NUm CMNDS 



SIZVERB2 rCU 
# 

* THE FBLL6WTNQ TWB TABLES ARE BIT PARALLEL T© VERB1 & VERBSt 

* A 1 BIT INDICATES THAT THE COMMAND MAY BE PRECEDE^ BY tD&NTf 

DBITS1 DATA DBITi GENERATES SUVeR»i/32 W& r DS 



DBITS2 DATA DBIT2 
USECT TFL 



GENERATES SZ£VCRt*?/33 W&RD3 



HOI 



18136 

90* 

91# 

9?* 

93* 

94* 
9R* 
9ft* 

97* 

98* 

99* 

100* 
101* 

10?* 
10?ft 



SEP 08# *75 



OP 
OP 

0? 

0? 

0? 

0? 

0? 
OP 



00827 
00828 

00829 
0O82A 

00828 
0O82C 

C08j?D 
0082E 



0000OOP7 
OOOOOOlC 

31CAO00O 

hcaoooo 

6?0AO000 
670AO000 

3I8AOCIO 
318AO01F 



A 
A 

05 
Oft 

03 
0# 

04 
04 



VALID TEL C8MMAND TABLES 
THE F9LL6WING PAIRS ARE EXECUTED BY THE SCANCVT ROUTINE 



1§7 



SCNVBSIZ 



SCNVERB 



VECTORS 

* 
DCHPRS 



DATA SlZVERBl 

DATA SIZVERB2 

CNjDi VERBIjRS 

CDiDl VERBg # R5 

FXU VECT8R1/R?i 

FXU VECTeR2#RR 

CW^SRl DBITSljRs 

CW#9R1 DBITS?#R5 

TITLE »SUB«ReUTTNES» 



F&R SIKiGLE W8RD SEARCH 
F8R D8UBLEW6RD SURCH 



HOI 



18J36 

3077 

307ft 
3079 
3080 

3081 

308? 
3083 
3084 
308R 
308* 
3087 
3088 
3089 
3090 
309l 
309? 
3093 

1# 
3095 
3096 
3097 
3098 
3099 
3100 
3101 
310? 
3103 
3104 

3105 
3106 
3107 
3108 
3109 
3110 
3111 



SEP 08* »75 



0? G08?F 
0? 00830 



0? Q0831 
0? 00832 

02 
0? 00833 
0? 00834 
0? 00835 
0? 00836 
0? 00837 
0? 00838 
0? 00839 
0? 0083A 



Op OO83B 
0? 0083C 



gacsmon 

6800O70E 



28C3nll3 
6800H70E 

00833 

38100013 
47100000 
38100106 
35100102 
22100755 
28200005 
0*100790 
68000903 



2*C3O700 a 
6&00070E 



PAGE 



SU8*R8UTI\ES 



1&8 



* THE F8LL8WING ARE ERROR AMPLIFYeRS USED T8 PRINT THr CORRECT MESSAGE* 
♦ 

KTJBST 



*E# 
*E # 

#E# 
*E» 
•E* 

STARTERR 

* 
8K8PT0 



LI/D1 XtQ30lDCt ERR8R C60E & SUBCODE 
B CMNERR1 TELL USER & PROMPT 

#•**•«**##*«♦#*#*«***•*««##*#«#*«•*•***»***#««•«»#*#« *######### 

frror* * 

gr8up 03, c8df101, subc8de«13 • 

description! * 

USER SAID START 8R START UNDER WITH NB L,M NaMEi * 
THIS IMPLIES i FILE* BUT THERE ISN'T ONE, S8..t * 

##«#####*#♦##♦#♦«#####»#»♦«###♦•♦####♦#*####*###♦##*###*##**#♦# 

LI#Ol Xt0301i3< ERR8R C8DE & SUBCODE 

B CMNERR1 



BK8PT 



#E# 

#E# 

#E* 
#E* 

*E* 

*E* 

TERHERR 



FQU * 

LW*R1 IQUIT 

STSjRi JITELFLGS 

LW,R1 TELBUF 

STWiRl NLSAVE 

LI#R1 BKMSG 

LI#R? 5 

CAL1*1 WRITE 

B SYN1 

FRR8RJ 



SET IMPLIED QUIT C8MMAND T8 ALLS* 
1CR1 T8 CAUSfc PROCESSING 8F CURRENT 
COMMAND. SAVE 1ST W8RD 8F C8MMANQ 
F8R REST8RE AFTER NEXT READ 



C8DFi07j SUBC8DE-00 



* 

# 

* 



GR8UP 03* 
DESCRIPTION! 

THE USER* 

TERMINAL 

TERMINAL 



S TERMINAL TVPE SPECIFIED IN HIS 
C8MMAND WAS INVALID 8R THfc CHANGE 
TYPE CAL WAS UNSUCCESSFUL^ 



LI/Dl 
B 



X»030700* 
CMNERR1 



ERROR C8DE & SUBC8DE 



HOI 18S36 SEP 08* '75 
11? 
IIS 
1 14 
11B 
116 
117 
118 
119 
120 
131 
12? 
123 
124 
1PB 
126 
127 
128 

129 
130 
131 
13? 
133 
134 
135 
136 
137 
138 
139 
HO 
141 
14? 



SUB»R8UTINFS lbg 

PAGE 



02 0083^ 

0? C083D 32300100 N 

0? 0083E 20300001 A 

0? 0083F 22100006 N 

0? OO84O 13100100 IM 



*D* 

#0» 
#0# 
#0* 
#D# 
#D» 
#D* 
#D# 
#D* 
#D# 
#D* 
#0* 
#D* 
»D# 
#D# 

*D# 
*D# 

#0* 
*D« 
#D# 
«D# 
#D# 
#D# 
#D# 



NAMEJ RDSUSFRS 
CALL: 

BAL#R0 RD5USERS 

Called by password and snew csmmands 

REGISTFRS* 

N8 REGISTERS ARE PRESERVED 
INPUT* 

eUTFUTi 

scratch; 

DATA! 



R? • 8PEN M6Df« IN*1, IN8UT *4 

JIACCNjJIuNAME - USED T8 F8RM KEY FAR SUSERS REC« 

IL6QS2 - SIZE 8F JUSERS REC8RD 

USERS AUTM8RIZATI8N REC8RD IN M£M0RY 
R3 - ADDRESS 8F REC8RD IN C8RE 

R1jR4*R5jR6#SR3#SR4jDi#D3#D4 



143 
144 

146 
147 



02 0084X 



8PUSR, WBRD 0, IS USED T9 F8RM W8R0 8F READ FPT 

DESCRIPTI8NJ 

A BUFFER IS CREATED IN TFLSTACK & THE JUSERS 
KfY IS PLACED IN IT» JUSERS IS 8PENED IN THE M8De 
SPECIFIED IN R2. tHe ReC8*D IS THEN READ IN 8N 
T8P 8F THE KEYi THE CALLER MUST REST8RE THE 
TELSTACK SPACE* EXCEPT IF ERR8RS 8CCUR WHILE 

ACCESSING lUSERSf 

RDlUSERS FGU « 

LW#R3 TFLSTACK CREATE BUFFER..* 

A 1 1 R3 1 

BUMP LBGSIZE+RWUSRSZjRl 



* n8w f8rm the kpy f8r susers in fr6nt 8f the buffe*. 

* key is te*tc accgunt, blank, name 

# 

C8NCAT FGU $ 



Hni is 

314ft 
3149 

3i5o 

3151 

315? 

31 53 
3154 
3155 
315* 
3157 
315ft 
3159 
3160 
3U1 
316? 
3163 
3164 
3165 
3166 

3167 

316ft 

3169 
3l7n 

3171 
317? 

3173 
3174 
3175 
3176 
3177 
317ft 
3179 
3180 

3181 
318? 
3183 
3184 



836 SEP 08i 
0? 00841 
0? 00842 
0? 00843 
0? 00844 
0? 008*5 
0? 00846 
0? 00847 
0? 00848 
0? 00849 
0? C084A 
0? 00848 
0? 0084C 
0? 0084D 
0? OO84E 
0? 0084F 
0? 00850 
0? 00851 
0? 00852 
0? 00853 



0? 00854 

0? 00855 
0? 00856 

0? 00857 
0? 00858 

0? 00859 

0? 0085A 
0? 0085B 



'75 

22400000 A 
2S5FFFFS A 
2U40O001 A 
726AO002 N 

2*6000*0 A 
6*30Ofi4B 

F5680C03 * 
6S50O843 
2260OC40 
20400001 
FS680003 
235FFFF4 
786AO003 N 
2*600040 A 
68300853 
2U40O001 A 
Ft>68o003 A 
6&50O84D 
P"S4qo003 A 



0^200020 
2 A 50O7B3 
2 A E0OO00 
2&50OO00 
22A0O0C0 
0*l0O7A6 
0220OO2O 
2WE0OO0O 



CBNCATA 



LI*R4 
LIjRR 
Al#R4 
LB,R6 

CI#R* 



SUB»RBUTINFS 


•ft 
1 

JjACCN*2jR5 
t » 



BE C6NCATB 
STBfRft #R3#^4 



CBNCATB 
C8NCATN 



BIR#Rr 

LI#R6 

ANR4 

STB#R6 

Ll*R5 

LB#R6 

CI/R6 

BE 

AI#R4 

STB#R6 

BIRiRg 

STBjR4 



CBNCATA 
t • 

1 

#R3#R4 
• 12 

JiUNAME*3,R5 
t ! 

CBNCATE 

1 

#R3*R4 

C8NCATN 

♦R3 



CBNCATE 

# 

# N8W CHANGE AtCBUNT TB ISYS S D8 TME 6P£N 



INITIALIZE CBUNT 

FBR 8 CHARACTER ACC6UNT 

C8UNT THE CHAR 

GET ACCBUNT CHAR* 

IS IT BLANK 

YES 

NBj STSRE IT 

OB NEXT CHARi 

BLANK FBR SPACER 

C6UNT SPACER 

6TBRE SPACER 

FBR 1? CHAR USER NAME 

GET NAME CHAR 

IS IT BLANK 

YESj ALM8ST 0BNE*.t 

NB* CBUNT IT 

STBRE CHARi 

DB NEXT 

STBRE CBUNT 



1*0 



LCI 

LM/RS 

LM,D3 

STMjR5 

LI#SR3 

CALl#i 

LCI 

STMi03 



2 

SFCAC 
JtACCN 

JtACCN 



BPUSR 

2 

JJACCN 



SAVE USER»S ACCBUNT 



SET UP TB CHECK 
BPEN JUSERS 

RESTBRE USER f S 
ACCBUNT 



FBR errbrs 



*E« 
*E* 

#E* 
*E* 



0? 0085C 



21A0O000 A 



ERR8RI ♦ 

GR8UP 03, C8DE*0Rj SUBCBDE^OO * 

DESCRlpTlBNi * 

JUSERS WAS BUSY WHEN ATTEMPTING $P&H INBUT * 

CI'SRS ANY ERRBR BN BpEN 



HOI 



18J36 SEP 08j »75 



318R 


OP 


0085D 


683on«6B 




3186 










3187 










3188 










3189 


0? 


0085E 


2bA00070 


A 


3190 


c? 


0085F 


2IAQ1402 


A 


3191 


02 


00860 


6^300863 




319? 


0? 


00861 


28C3O50O 


A 


3193 


0? 


C0862 


6*00086C 




3194 











BE 



SUB*R8UTINFS 
QBTUSRe 



hds EVERYTHING FINE 



lfcl 



# SINCE MjTEL AHDR IS LESS THAN XMOOOO»j WE NEEONfT wBRRY 

# AB8UT BTT 15 fV|?R. 



SLSjSRi 
CI/SR3 

BNE 
LI#D1 
B 
SPACE 



• 16 

X»1402» 
**3 

Xt030500» 
RjUERR 



RIGHT JUSTIFY ER*8R C8DE 
IS IUSERS BUSY 
N8* S8HE 8TH&RR fcRRBR 
YES* TELL USER 



3195 
3196 
31 97 
3198 
3199 
3200 
3201 
3202 
3203 
3204 

32CB 
3206 

3207 

320« 
3209 
3210 
3211 
3212 
3213 
3214 
3215 
3216 



02 00863 
02 00864 



2*C3n501 A 
6800086C 



02 0086& 
02 00865 0220OO6O 
02 00^66 2*5on79E 
02 00867 2&560000 
02 00868 OM60000 



#r# fRROri * 

#E# GR8UP o3j C8DF»0B# SUBC8DE«01 # 

*E# DESCR1PTI8NI # 

#E# 1/8 ERR8R 8F S8ME S8RT 8N TRYING T» 8PEN IUSERS * 

###♦###*#«###########♦#####«#♦###♦♦##♦#################♦###♦#*♦♦##»##### 



LliDi 
B 



Xt030501t 

RjUERR 



ERR8R C8DE & SUB&8DE 



* M8VE READ FPt T8 STACK & D8 READ 

# 

G8TUSR8 PGU « 

LCI 6 

LM,Rg RWUSR 

STM#R«S L8GSIZE#R3 

CAL1*1 L8GSUE#R3 
«**«*«***#***«««**««***«#*•«*«#* ###**# ««#*#**# * **##«•«** ##♦♦#####*###♦## 

*E# |?RR8Ri # 

#E# GR8UP Q3j CSDEiOSj SUBC8DE»02 * 

*E* DESCRIPTI8NJ * 

♦E* 1/8 ERR8R READING iUSERS REC8RD * 



SIZE 8F FPT 

MOVE 

FPT T8 STACK 
READ THE USER'S REC8RD 



wnl 



181^6 SEP 08* 


»75 








3P17 0? 00869 


21aooooo 


A 




CIjSR 


3P18 0? 0086A 


E93onooo 


A 




BNEZ 


3P19 OP 00868 


22C3n50P 


A 




LliOi 


3??0 CP 00«6C 


225FFFFA 


N 


RJUERR 


BUMP 


CP 0086D 


1^500100 


N 






3921 OP 0086E 


6^000706! 






B 


3P2? 






# 





SUB#R8UTINES 
ANY ERR6R 

#R0 NSPEttt 

Xt030502f ERR9R CQDE £ SUBCODE 

•<L8GSlZe*RWUSRSZ)#R5 CLEAN UP STACK 

CMNERRl 



1*2 



Hoi 1*136 SEP QH* '75 
3223 

3224 
3225 
3226 
3227 
322A 
3229 
3230 
3?31 
3232 
3233 
3234 

32355 
3236 
3237 
323ft 
3239 
3240 
3241 
3242 

3243 
3244 
3245 
3246 
3247 

324ft 

3249 
3250 
3251 



325? 
3253 

3?54 
3255 
3256 
3257 
325ft 



02 0086F 
02 00870 
02 00^71 
02 00872 
02 00873 
02 00874 
02 00875 
02 00876 
02 00877 



022onoFO A 
0*100100 N 
321007A6 
*9lOO0U 
32200724 

22300*90 
224oo«9o 
28500001 
2^600001 



N 



#D# 
*D# 
#D# 
#D* 
*D* 
#0* 
#D# 
#D* 
*D* 
#D# 
#0# 
#D# 
#D# 
#D* 
#D# 
• D# 
#Dt 
#D# 
#D# 
*D* 
*D# 
*D# 
#D# 

#0# 
#D# 
####### 

FL8P 



SUBROUTINES 163 

PAGE 



name: flop 
call: 

BaL#SR4 FLOP 

registfrs* 

preserves all registers except ro 

INPUT J 
OUTPUT? 

data: 



R7»SRt * FILE PASSWORD OR ZE*8ES 
SR2»SR3 « FTLE ACCOUNT 8R ZEROES 
Di»D3 • FILE NAME (NON.TEXTC >* MAX n CHARS 

Ro • 2ER8 IF N8 ERROR, OTHERWISE CONTAINS 
FRR8R C80E# RlSHT JUSTIFIED. 



8pusr • word 8f open fpt 

name • file name vlp c8ntr wd 

pacc - acc8unt vlp c8ntr wd 

ppas • password vlp contr wd 
tnterfaCf: 

nrnd • c8nverts file name t8 textc 
description? 

A TEST 8PFN FPT IS BUILT IN THE C8N T £XT PAGE AT 

»fl»pbuft, mode is set t8 8ut so save routine 
Can use the fpt by turning off the test bit. 

SINCE THE DCB IS N8T OPENEDj THE CALLER NEED NOT # 
CLOSE IT» * 

PUSH IRjRI 



LW#Ri 
ORjRl 
LW # Rj? 
LI#P3 
LIjR4 
LliRS 
LljR^ 



OPUSR 

Y0008 

FLOPBITS 

RFE 

RFE 

1 

1 



GET FPT WORD 





TURN ON TEST 


BIT 


PARAM. PRES. 


BITS 


ERR 




ABN 




ORG » CONSEC 




ACC f SEQUEN 





Hni 



18*36 SEP 08* 


3P59 


OP 


00878 


3260 


0? 


00879 


3P61 


OP 


C087A 


3P6P 


0? 


0087B 


3P63 


0? 


00«7C 


3P&4 


OP 


0087D 


3P65 


OP 


0087E 


3P66 


OP 


00«7F 


3P67 


OP 


00880 


3368 


OP 


00881 


3P69 


OP 


00882 


3P70 


OP 


00883 


3P71 


OP 


00884 


3P7P 


OP 


00*85 


3P73 


0? 


00886 


3P74 


OP 


00887 


3?7B 


0? 


00888 


3?76 


OP 


00889 


3P77 


op 


C088A 


3P78 


0? 


00888 


3P79 


CP 


0088C 


3?*0 


CP 


Q088D 




OP 


0088E 


3P81 


OP 


0088F 


3?8p 


op 


0089C 



»75 

0820O060 A 

2«l0OllB N 

2860O00P A 

3S60D1P1 N 

35600122 N 

3^600000 X 

21700000 A 
68300881 

2U60DP00 A 

082ooo30 A 

2»6001PA N 

388QO000 X 
022OOO3O A 
2 tt 8ooi27 N 

6AA00891 

38500000 X 

0^200040 A 

2&50O123 N 

28A0OOO0 A 

OMontlB N 

7800O00A A 

082OOOFO A 

0M00100 N 

E»000008 A 
E800O008 A 



RFE 



LCI 

STM#R1 

LI*R6 

STWiRa 

STW#R6 

LW,Rfc 

Cl*R7 

BE 

AI*R6 

LCI 

STM,R*> 

LW^SRl 

LCI 

STM#SRi 

BALjSRs 

LW#R5 

LCI 

STMjRb 

LI#SR3 
CALl#l 
LBjRo 
PULL 

B 



SUB»R9UTINES 
6 

FL8PBUF 
P 
FL8PBUF+6 

FL8PBUF+7 

PPAS 



• *2 

Xf0200! 

3 

FL8PBUF+15 

PACC 

3 

FL0PBUF+1? 

NFND 

NAME 

FL&PBUF+8 



FL6PBUF 

SR3 

IRjRi 

#SR4 
#SRl 



164 



ST8RE FPTj 
W6RDS 0»5 

M6DE • 8UT 

DISP i SAVE 

SKEL£T§N PASS* VLP 

IS PASS\*8RD PRESENT 

NS 

YES* TURN QN SIQNIF. 

INSERT PASSWORD 
SKELETON ACCOUNT VLP 

INSERT ACC8UNT 
MAKE NAME TEXTC 



INSERT NAME 

CLEAR FRR0R RETURN 

D8 THE 8PEN 

P8SITI8N ANY ERR&R C8DF 



ERR8R RETURN T8 CaL>1 



HOI 



1*836 5 


*EP .08 


3283 






3284 






3?BR 






3286 






3287 






3288 


0? 


C0891 




0? 


00892 


»lc*' 


02 


C0S93 


329o 


02 


00*94 


3291 


02 


00«95 


329? 


02 


00896 


3293 


0? 


00^97 


3294 


02 


00898 


329K 


02 


00899 


3296 


02 


0089A 


3297 


02 


0089B 


3298 


02 


OO89C 


3299 


02 


0089D 




02 


0089E 


3300 


02 


C089F 



♦75 



08200020 

QtHomoo 

224QO00O 
12600000 
32800000 
7258000C 
2X50O04Q 
6*30O89C 

20400001 
7$58o006 

6*000896 
79400006 

0220O020 
0**00100 
E^OOOOOA 



A 

N 
A 

06 

05 
A 

A 

A 
A 

A 
A 

N 
A 



# 
« 
NFND 



SUB»R8UTlNES 
PAGE 
THE tNFNDt R&UTJNf IS USED WM^N a LMN MAS B£EN 
IT F8RMS A TrXTC LMN F6RMAT IN REGS 6,7 AND gt 
THE INPUT LMN MUST BE IN Du D2 AND D3. 



165 

PRESENTED A$ A G8MMAND. 
ENTKY IS WITH BAL#S*3t 



NFNDi 



NFND2 



PUSH 

II4R4 

LD,R6 

LW^SRi 

LB#R5 

CI/RR 

BE 

Al#R4 

STB#RB 

B 

STBjR4 

PULL 



2#R<f 



VFRB2 

VFRBi 

Dj#R4 

C? f 

NFNOg 

1 

R6jR4 

NFNDl 

R6 

2jR4 

#SR3 



BLANK FILL BUFFEH 



INSERT CBUNT 



Hoi 18136 SEP 08* '75 
3301 
330? 
330?) 

3304 
3305 
3306 
3307 

3308 

3309 
3310 

3311 
331? 

3313 
3314 
331$ 
3316 
3317 
3318 
3319 
3320 
3381 
33?? 
3323 
3324 
332B 
3326 
3327 

3328 0? 008A0 

3329 0? 008A1 

3330 0? 008A? 

3331 0? 008A3 
333? 0? 008A4 

3333 0? 008A5 

3334 0? G08A6 
333* 0? 008A7 

3336 0? 008A8 

3337 0? 008A9 



PAGE 



SUB.ROUTlNFS 



166 



THE SCAN SUBROUTINE PROGRESSES THROUGH THE INPUT COMMAND PICKING UP 
THE NEXT FIELD* IT PROVlDFS ThE BOOKEEPING T8 ALWAYS STArT AT THE 

beginning bf a field, field terminators are determined by the contents 

OF TABLF tTERMSi. LEADING AND TRAILING BLANKS ARf SUPPRESSED AS W E LL 
AS SERVING AS A TERMlNATORf ALL DATA ENCLOSED WITHJN PARENSO IS 
IGNORED AND ANY CHARACTERS MaY Be USeDi 



ENTRY 

A BAl 
R2 

R3 
Rl 



« 
# 

* 
# 

« 
* 

# 

# 

# 
# 
# 
* 
* 
# 
* 
# 
* 

# 
# 
# 
SCAN 



is madf with a baL,sR3 scan 

TO SCaN# IS USED TO iNCLUDg 
> BYTE DISPLACEMENT WITHIN INPyT 

POSITION). 
• ADDRfRS TO where field IS TO BE 
TAKE PLACEt 
REMAINING SIZE OF iNpyT MESSAGE t ARS) . 



OR BAL,SR3 SCAN* 
* AS A TEPMINATOH FOR T H 

MELDS! 



SET C0MMAN 
TARTING 



FIELD(NEXT 
MOVED, ZeF?& IF m M8VE IS TO 



ON EXIT* THE FOLLOWING IS IN THE REGISTERS* 

R6 - FIELD DELIMITER CHARACTER(EXCEPT EOM IS NEVER SEEN»Ri,Q)t 

R7 ■ NUMBER OF CHARACTFRS IN FIELD, EXCLUSIVE OF SfPERATORSi 

SRI * DESTRsYEDt 

R5 ■ INDEX INTO TERMS TABLE (CHARACTER TYP£ THAT STOPPED THE SCAN), 

Rl • AS ABftVE BUT DECREMENTED BY NUMBER OF CHARACTERS SCANNEDt 

R2 • AS ABftVp POSItIONfD TO START OF N£*T FIELD 



note»ri«o Implies end of message. 



22500009 A 
6»0008A3 

2250O00B A SCAN* 
28800000 A SCAN? 
22700000 A 
0*000100 N 

2200HO0O A 
9 5onl00 N 
28500000 A 
6MQH8AD LOOP 



LliRR 

B 

LI#R5 

Ll#SRi 

LI#R7 

PUSH 

LliRo 

PUSH 

LI#RR 
BDR#Ri 



SIZETERM*? 

SCAN2 

SIZETERM 





Ro 



RB 


LOOPl 



SKIP # AND » SIGNS 



CLEAR PAREN COUNTfR 

SAVE TERMS TABLE SIZE 

PRE-SET DELIMIT VpCTOR TO BLANK 



Hoi 



18136 SEP 08j 


'75 








SUB-R8UTINFS 


3338 


0? C08AA 


08000100 


N 


L88P5 


PULL 


Ro 


3339 


0? 008AB 


08000100 


N 




PULL 


RO 


3340 


0? 008AC 


E800O00A 


A 




B 


#SR3 


3341 


02 


003AU 




L88P1 


FGU 


* 


3 *S *? t*. 


0? QOSAD 


72640106 


N 




LB/R6 


TFLBUFjR? 


3343 


0? 008AE 


2U20O001 


A 




Al*R? 


1 


3344 


0? 008AF 


21600040 


A 




CI#R6 


1 t 


3345 


0? OOSBo 


6830O8B7 






BE 


VBLK 


334* 


0? 008Bi 


2160004D 


A 




C!jR6 


f ( f 


3347 


C? OO^Bg 


683OO803 






BE 


PARENS 


3348 


0? 00«B3 


2160005D 


A 




CI#R6 


t ) 1 


3349 


0? 008B4 


6830O8D5 






BE 


PARENC 


33550 


0? 008B5 


21600005 


A 




d'R6 


Xt05» 


3351 


0? 0O8B6 


69300SBB 






BKE 


TERMTST 


335? 


0? 008B7 


217QO000 


A 


YBLK 


CIjR7 





3353 


0? 008B8 


6830O8A9 






BEZ 


L88P 


3354 


0? 008B9 


2U80O001 


A 




Al/SRi 


1 


3355 


0? 008BA 


680008A9 






B 


L88P 


3356 


02 


008^ 




TERMTST 


FQU 


* 


3357 


0? 008BB 


21000000 


A 




CliRo 





3358 


0? 008BC 


683008BE 






BE 


TERMTST1 


3359 


0? 008BD 


680008B7 






B 


YBL« 


3360 


02 


ooaBt 




TFRMTST1 


FGU 


% 


3361 


0? 008BE 


985QO100 


N 




LW,R5 


♦TELSTACK 


336? 


0? 008BF 


716A08DC 






CB#R6 


TFRMSjRS 


3363 


0? 0O8C0 


6830O8AA 






BE 


L88P*1 


3364 


0? 008C1 


6450O8BF 






BDRiRR 


$-2 


3365 


0? 008C2 


21800000 


A 




CI#SRi 





3366 


0? 008C3 


683008C8 






BE 


CHAR8K 


3367 


0? 008C4 


20100C01 


A 




Al/Ri 


1 


JjoK 


0? 008C5 


2Q2FFFFP 


A 




Al*R? 


• 1 


3369 


0? 008C6 


2^600040 


A 




Ll*R6 


f f 


3370 


0? 008C7 


680008AA 






B 


L88P*1 


1* 








# N8TE* 


MAX FirLD LENGTH pll, THp 


?* 








* 


CASE F8R 


The Where csmmand 


3371 


0? 008C8 


21A00388 




CHAR8K 


CI/SR3 


WHSC 


337? 


0? 008C9 


683oo8CI! 






BE 


CHAR8K5 



167 

REM8VE TERMS TABLE SIZE FR8M STACK 

REMAINING BYTES 

CHAR 

AND INCREMENT T8 NEXT P8SITI8N 

BLANK TEST 

PR8VIDF SKIP 8N PaREN FEATURE 

END PAREN SKIP 

TAB TEST»SAM£ AS BLANK 

TEST F8R PREVIOUS DATA 

IQN8RE LEADING BLANKS 

SET BLANK FLAG 

SUPPRESS TRAILING BLANKS 

SCAN F8R TERMINATING CHARACTERS 

F8RCE BLANK L8GIC DURING SKIP 
GET TERMS TABLE SIZE 



N8T A TERMINAT8R»TEST BLANK FLAG 

JUMP IF N8T SET 

RESET P8SITI8N T» START 8F NEW FlELP 

F8RCE BLANK DELIMITER 
F8L6WTNG TEST IS SPECIAL 



HOI 



18? 
3373 
3374 
337* 
3376 
3377 
337ft 
3379 
3380 
3381 
338? 
3383 

3385 
3386 
3387 
3388 
3389 
33^0 
3391 
339? 
3393 
3394 



36 SEF 08, 
OP 008CA 
OP OOSCB 

0? coscc 

0? 008CD 

0? 008CE 

OP 008CF 

OP 008D0 

0? C0801 

0? 008D2 
0? 008D3 

0? OO8D4 

0? 008D5 

0? 008D6 
OP 008D7 
OP 00808 
0? 008D9 
0? 008DA 
OP 0080B 



3396 
3397 
3398 
3399 

3400 

3401 
340P 
3403 
3404 
3405 
3406 

3407 
3408 
3409 



OP 0080C 
0? 008DC 
CP 008DC 
OP 008DC 
OP 0080D 
0? 0080D 
OP 0080D 
OP 008DD 
OP O08DE 
OP 008DE 
OP 0080E 
0? 008DE 



'75 

21700008 A 
6^3008CE 
22A0OP31 
6*00O8AA 
2X300000 A 
683oo8Dl 
FJS6EOO03 A 
2070OO01 A 
6#0008A9 

2U000001 A 
680008A9 
2Q0FFFFF A 
681008A9 
22000000 A 
21700000 A 
6*3008A9 
22Aoo?3l 
6&0008AA 



1 



40 
6* 



2 7fc 

3 61 

4» 
1 6t 



4L 
St 

63 
7U 
6U 
7d 



Cl*7 
BKE 

LI*SR* 
B 

CHAR8K5 CI*R3 
BE 

STB,R6 
Al*R7 
B 

PARENS Al*Ro 
B 

PARENC Al,Ro 
BQEZ 
LI/RO 
CIiR7 
BE 

LI#SR3 
B 



SUB»R8UTINFS 
11 

CHAR8KS 
CHKULM 
LB8P5 


**2 

*R3*R? 
1 
L88P 

1 

L88P 

• 1 

L88P 





L88P 

CNKULM 

L88P5 



1^8 



tee many chars, 

IS DATA T8 BE MOVFD 

N8 

VES 

COUNT CHARACTER 

AND G8 FOR NEXT ONE 

BUMP PAREN COUNT 

DECREMENT PAREN COUNT 

CLEAR CBUNT 

STRAY CLOSE PARE N IS IGNORED 

BUT IS FLAGGED AS ERR6R WHEN M8RL 
CL8SE THAN 8PENS EXIST. 



# THE TE*MS TABLE 

# EACH ENTRY, TWE 

# AND THE FIRST EN 

# AS THIS LOGIC IS 

# THE TERMINATOR * 

# THE TERMINATOR • 
A TERMS DATA* 
A DATA* 
A DATA* 
A DATA* 
A DATA* 
A DATA* 
A DATA* 
A DATA* 
A DATA* 
A DATA* 
A DATA* 
A DATA* 



IS A BYTE TABLE C8NTAINTNG A TERMINATOR CHARACTER IN 
SCAN SUB.R8UTTNF L88KS AT THE TABLE FR8M BACK T8 FK8NT 
TRY MUST BE A DUMMY, A SPACE SEPeRAtOR IS NOT NEEOtO 
PERFORMED M8RE EFFICIENTLY OUTSIDE 8F THE TABLE* 
MUST BE LAST ENTRY IN TABLE 

BE THE NEXT T8 LAST ENTRY IN TABLE, 

DUM»DUMB 
INDFX 1 ordering within 
P THIS TABLE IS 

3 IMPORTANT IF 

4 ADDITIONAL ENTRIES 

5 ARE DESIrEQj 

6 ALWAYS ENTER 

7 THEM BELOW 

8 THIS P8INT 
9 



MUST 
Ci ' 
Cl f 
Ci*i 
C1/1 
Cif » 
Cf> f 
Ci< f 

en » 

Cl* 1 
Ci 1 1 i 
f •* 

C t # • 



to 
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3410 0000000» SI2ETERM FGU BA (*) »6A (TERMS )«1 

3411 B6UND 4 



HOI 



185 

341? 

3413 
3414 
341R 
341* 
3417 

3418 
3419 

3430 
3481 
342? 
3423 
3424 
34gB 
342* 
3427 
3428 
3429 
3430 
3431 
343P 
3433 
3434 
343K 

343* 
3437 
3438 

3439 
3440 
3441 

jg •> if f* 

3443 

3444 
3445 
344* 



36 SEP 08j '75 



SUBROUTINES 



0? C08DF 
02 0080P" 
OP C08EQ 
02 008E1 
0? 008E2 
C? 008E3 
0? 008E4 
02 008E5 
0? 008E6 
02 C08E7 
02 008E8 
02 008E9 
02 008EA 



C2 008ES 

02 008EC 
02 008ED 
02 008EE 
02 008EF 

02 008F0 
02 008F1 
02 C08F2 
02 008F3 
02 C08F4 
02 008F5 
02 008F* 



E»000000 
68000231 
68000231 
68Q00231 
680008I* 
68000231 
68000231 
68000231 
E800OO00 
68000231 
68000231 
68000231 



OgOOOOOO 
68Q008F7 
680008F7 
680000OO 
68OOO8F7 
6800O8F7 
680008F7 

0H000000 

6800O8F7 
680008F7 
680008F7 
68000000 



PAGE 
# 

# »ST6PS' IS A vec 

♦ THE CORRECT LBGl 

# ASSEMBLE DIRECTI 

♦ NOT BE ALTERED W 
* 

STOPS RES 
B 
B 
B 
B 
B 
B 
B 
6 
B 
B 
B 
B 
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TOR USED TO DfFTNE THE TERMINATING CHARACTER AND E N TER 
C. IT IS EMPLOYED DURING THE SCAN OF A COMPILE OR 
VEt THE FORMAT IS ORIENTED TO THE TpRMS TA&LE ANQ MAY 
ITHOUT CORRECT CORRESPONDENCE TO TERMSi 



« THE FOLLOWING IS 
* DEVICE CODE FTEL 
SETSTP NOP 

e 

B 

B 

B 

B 

B 

NjOP 

o 

B 

B 

B 




♦0 

chkulm 

CHKULM 

CHKULM 

FIDER 

CHKULM 

CHKULM 

CHKULM 

*0 

CHKULM 

CHKULM 

CHKULM 

A UNIQUE 
D. 

SYNTAX 
SYNTAX 
SETFLE 
SYNTAX 

SYNTAX 
SYNTAX 

SYNTAX 

SYNTAX 
SYNTAX 
SETNUMB 



SPACE 

QUESTION 



MARK ILLFGAL 



t ILLEGAL 

/ ILLEGAL 

. IMPLIES COMPLEX 

> ILLEGAL 

* ILLEGAL 

I ILLEGAL 



• (MINUS) 



FID 



TERMINATOR VECTOR FOR THE SET COMMAND. 



THE ©RDER 9F 
TO THE TERMS 
g ILLEGAL IN 
/ IMPLIES 

• ILLEGAL 

* ILLEGAL 
< ILLEGAL 
J REQUIRES 



THIS VECTOR 

TABLEt 

THIS FIELD 
FILE PLIST 
IN THIS FIELD 
IN THIS 
IN THIS 
DEVICE 



IS KEYEL> 



j ILLEGAL IN THIS 



FIELD 
FIELD 
OPTION 
FIELD 



PLIST 



* IMPLIES DEVICE SERIAL NUMBER 



Hoi 



las 

3447 
3448 
3449 
3450 
34 51 
345? 
3453 
3484 
3455 
3456 
3457 
3458 
3459 

3460 

3461 

346? 

3463 
3464 
3465 

3466 
3467 
3468 

347? 
3473 
3474 
3475 
3476 
3477 
3478 
3479 
3480 
3481 
348? 
3483 
3484 
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02 
0? 008F7 
0? 008F8 
0? 00«F9 
0? 00&FA 
0? 008F8 
0? C08FC 

0? 008FD 
0? 008FE 
0? 008PT 

0? 00900 
0? 00*01 
0? 009c2 



02 
0? 00903 
C? 00904 
0? 00905 
0? 009C6 
0? C09c6 
0? 00907 
0? 00908 

0? 00909 
0? 009CA 
0? C09qB 
0? 009cC 
0? C09CD 
0? 0090E 



008F7 

32C0O002 A 
6ABqo979 

02200020 A 
2*60O7lD 

28100001 A 
5&D2OO07 A 

38100100 N 
20100001 A 
08200020 A 

0&6Q0100 N 
28200008 A 

0*100790 



0*Soo7ED 
28100000 
3&100GOO 
28100010 
^AlooCOO 
683oo9oF 
281FFFF7 
4W100000 
3&100000 



00903 

38100000 X 
6830O90F 
22900000 N 



SOME: UNINTELLIGIBLE ENTITY IS 
BR MESSAGE PARSE* THE ACTION IS 



TB 



SUB*R6UTINES 1/1 

PAGE 

# THE F8LL6WING IS ENTERED ANY TIME 

# ENCOUNTERED DURING THE FIELD SCAN 

# PUT euT THE fiEHi! MESSAGE AND TURN THE C8NS8LE BACK TB THE USER F&R 
« A RETRY. THE ENTIRE MSG MUST BE RE.ENTEREDi 

# 

SYNTAX eGU * 

LW/D1 R? SAVE ERRBR PBSlTiBN 

BALjSR4 BINDECBCD CONVERT BINARY PUCE VALUE TB PRiNT 

LCI 2 

LM#R6 EHMSG 

LI^Rl 1 PUT LAST 2 DIGITS IN MESSAGE* 

STHjD? R7#Rl 

LWjRi TELSTACK 

AljRl 1 

PUSH a,R6 



LliR? 
CAL1#1 



8 

WRITE 



ANY PREVIBUS PROCESSING WILL HAVg NB LASTING E^FgCT AS THE A/M TABLE 

WILL BE Read frbm bisc again j thereby nullifying ERROR MsG« 



* 
SYN1 



ECU 

LW#R1 

BEZ 

Ll#SR? 

DBl 

CALl#8 

LI/R1 

STW#R1 

LIjRl 

LS*R1 

BEZ 

Ll#Rt 

ANDjRl 

STWjRi 



i 

JUBUF 

8YN3 

AMBUF 

DBUG*0 

FPFPT 



JjABUF 

SISET 

JiTELFLGS 

SYN3 

-(SIN8REL*i) 

JSTELFLGS 

JjTELFLGS 



RELEASE A-M BUFF AS REQ'D 



NORMAL MBDE 



WAS AN SI CREATED BN THIS CMD 

NB 

TURN OFF SI D8NT RELEASE FLAG 



HOI 



1M36 SEP 08# 


'75 








3485 




02 


0090*' 




SYN3 


FGU 


348ft 


0? 


0090F 






CLEANSTACK RES 


5487 


0? 


ooScP" 


22C00158 


N 




LIjDi 


5488 


0? 


00910 


3SD00710 






LW^D? 


3489 


0? 


00911 


l^Cootoo 


N 




STD#Di 


349o 


0? 


00912 


6*00001.0 






B 


3491 










« 




349? 










♦PROCESS 


A systfm 


3493 










* 




3494 




02 


00913 




SYSERR 


FQU 


3498 


0? 


Q0913 


38100000 


X 




LW#R| 


34 9 A 


c? 


00*14 


4&100000 


X 




ANDjRi 


3497 


0? 


00*15 


3^100000 


X 




STW1R1 


1* 


0? 


0091ft 


2251FFFF 


A 




LliRS 


3498 


0? 


00917 


72400000 


X 




LB/R4 


3499 


0? 


00918 


21400004 


A 




C1jR4 


3500 


0? 


00*19 


68400924 






BAZ 


3501 


0? 


OO^lA 


2840OC20 


A 




LI#R4 


350? 


0? 


OO^lB 


283001FF 


A 




LljRa 


3503 


0? 


009lC 


4*300000 


X 




LS#Ra 


3504 


0? 


OO^lD 


2|30O001 


A 




SLSjR3 


3508 


0? 


0091E 


698oo92l 






BCSj8 


3506 


0? 


0091F 


2U4FFFFF 


A 




AI/R4 


35C7 


0? 


00920 


6*000910 






B 


3509 


c? 


00*21 


4?40O0GQ 


F 




STS/R4 


3510 


0? 


00922 


2840O0B3 


A 




LI,R4 


3511 


0? 


00923 


7S4QOOOO 


X 




STB#R4 


351? 




02 


00924 




FRRABNl 


FGU 


1* 










* READ 


THE ERROR 


?* 


0? 


00924 


22400000 


A 




LIjR4 


3515 


0? 


00925 


32C00000 


F 




LW,Di 


351ft 


0? 


00926 


2SC00178 


A 




SLDJD1 


3517 


0? 


00*27 


72CQO00O 


X 




LB*Di 


3518 


0? 


00*28 


2^Cqo108 


A 




SLD/Di 


1* 


0? 


00929 


75400000 


X 




STBiR4 


?* 


0? 


0092A 


7S400000 


X 




STBjR4 


3* 


0? 


0092B 


47400000 


F 




STSjR4 



SUB*R8UTINFS 
* 


STACKo 
STKINIT 
TFLSTACK 
PR8MPT 

OFTECTEO FRR8R, 



JjTELFLGS 

NBIT30 
JITELFLGS 

XUFFFF* 

JtRNST 

4 

ERRABNl 

32 

Xf IFF t 

JIASSIGK 

1 

**3 

•1 
i-3 

J:JIT*|R8 
XtB3t 

j:ABC 

* 

mfssaqe ftle 


JtJ!T*ER8 

• 8 

JiABC 

8 

JIABC 

JJRNST 

JJJIT+ER8 
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RL2 



START OF STACK SPACE 
STACK SIZE 
STORE STACK PTR PwD 
GIVE IEM ANOTHER GO 



TURN OFF ANY BREAK BIT 



MASK FOR STS LATER 



SET ERR8R SUBCODE 

AND H8LD IN 02 
GET MAJOR ERR8R CftDE 
AND MERGE SUB-C8PE 
CLEAR* • • 

• # tE^RORi • • 
..•CELLS 



MOl 



18136 ! 


?EP 08* 


'75 






SUB»R8UTINFS 




352? 


0? 


Q092C 


6*00noOO 


X 


BAL#RO 


TiERR 


TYPE ERR8R MSG 


1# 


0? 


C09?D 


28200000 


A 


Ll*R? 







P* 


0? 


0092E 


2831FFFF 


A 


LI#R3 


XflFFFFt 


MASK T8 STS ER8 


3* 


0? 


Q092F 


7520O00O 


X 


STB,R? 


jjabc 


CLEAR ANY £RR8R FR8M 


4# 


0? 


00930 


7t>2oriOOO 


X 


STB*R? 


JjRNST 


READING ERRMSG 


s# 


0? 


00931 


4?2QO00O 


F 


STS#R? 


J:JIT*ER8 




6« 


0? 


00932 


25C0O078 


A 


SLS#Dl 


• 8 


SCRUB 8FF SUBCBDi; 


7# 


0? 


00933 


2XC0O0A9 


A 


C!#D1 


X!A9» 


A/M ERR8R# SET BY TJAMrDWT 


3530 


0? 


00934 


6^300937 




BE 


$+3 


L8G »FM 8FF 


3531 


0? 


00935 


32100000 


X 


L^#R1 


JJAMR 


A/M ERR8R 


353? 


0? 


00936 


6^300117 




bnez 


XaB8Rt 


N8j A89RT T8 GeT CLEAN TfcL 


3B33 


0? 


00937 


18600742 




L0jR6 


lbg©ff 


D8 


3534 


0? 


00938 


3880OO00 


OS 


LW#SR1 


VERB1 


INTERPRITIVE 


3535 


0? 


00939 


38D00712 




Lk'D? 


SYS 


EXIT 


1# 


c? 


0093A 


38E00000 


06 


LNj03 


VFRB2 


T8 


P # 


0? 


0093B 


12*00000 


06 


LD#SR3 


VFRB2 


L8Q8FF 


3538 


C? 


0093C 


28000001 


A 


LI#R0 


JSTEP 




3539 


C? 


00930 


3X000000 


X 


CW#Ro 


JjTELFLGS 


EXIT IF AT J8B STEP»t« 


3S40 


OP 


0093E 


69400941 




BANZ 


i*3 




3R41 


0? 


0093F 


66000000 


X 


AfcMjRo 


J:TELfLGS 


SET J8B STEP FLAG AND 


354? 


0? 


00940 


68000100 




B 


INBREAK 


AB8RT IF N8Tt. t 


3543 


0? 


00941 


2800O000 


A 


L!#0 







3544 


0? 


00942 


0^900001 


A 


CALl*<9 


1 





173 



HOI 



IK J 


36 SEP C8, 


3545 






3546 






3547 






354*8 






3549 






3550 






3551 






355P 
3553 


0? 


00943 


3554 


0? 


00^44 


3555 


0? 


00^45 


355ft 


0? 


Q0 9 46 


3557 


0? 


00947 


355K 


0? 


0094R 


3559 


C? 


00949 


3560 


C? 


0094A 


3561 


0? 


0094B 


356? 


0? 


0094C 


3563 


0? 


0094D 


3564 


0? 


0094E 



»75 



2$Aq0068 
21A00005 
6830O90F 
22100106 
38200004 
2$20OO6F 
202FFFFF 
0*l0O79o 
22100750 
22200011 
0*l0O79n 
6*00090F 
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PAGE 
THE FetLdWING IsGlC IS PR8VIDFD T8 HANDLE THE 0CCU«ANCE »F AN A8N8RMAL 
8R E«R9R CQNDtTISN INCURRfD DURING THE RFAD ©F THE USE R TE R MlNAlt 
THE »05» ERRSR TS IGN8RED AS THE MeSSaGe HAS ALREADY BEEN REPEATED BY 
THE TIMF IT IS SENSED. 8THER ERR&RS WILL 8UTPUT A "ESSAGF AND ALLS* 
THE USER T8 TRY AGAIN, 



* 

* 

* 

* 
# 
# 
ABNRET 



SLS1SR3 

CI#SR3 

BE 

LI#Rl 

LW*R? 

SLSjR? 

Al#Rg 

CALliI 

LI#R1 

LI/R? 

CAL1#1 

B 



*?4 

Xf 05» 

CLEANSTACK 

TELBUF 

ARS 

•17 

• 1 

WRITE 

PARMSG 

17 

WRITE 

CLEANSTACK 



P8SITISN ERR9R CODE 



ECH8 INPUT 



PUT 8UT ERR8R MSG. 



GIVE AN8THER TRY 



Hoi 



18*3 
1* 

2* 
3* 

4* 

5* 

ft 'W 

7# 

8* 
g# 

ID* 
11* 

12# 
13* 
14* 
15* 
16* 
17# 
18* 
19* 
20* 
21* 
22* 

23# 
24* 

25* 
26* 

27* 

28* 
29* 

3D* 
31* 
32* 
31* 
34* 
35* 
36* 
37# 



6 SEP 08* '75 



02 
02 G094F 
02 00950 
02 00951 

02 00952 
02 00953 
02 Q0954 
02 00955 
02 00956 
02 00957 
02 00958 



0094** 

2291FE00 
0*80O7F6 
69800959 

2291FC00 
0*Son7F6 
65>8oo959 
22B001FF 
*7A0OO09 

0220OOOO 
E«000008 



#P# 

#D* 
#D* 
#D* 
*D# 
#D* 
*D* 
#D* 
*D* 
#D# 

HARPER 



SUB»R8UTlNFS 1/5 

PAGE 
#«**##♦######*##♦###*######♦♦#♦#«##♦*###**######♦#####♦#######♦# 

NAME: MAPPER * 

call* called 8y rsutines which need re l&bk at msnitsr * 
tables: pidgmsg * 

registers* uses srijsr2jsr34sr4. all 8thers are unt8ucmed* 

input! sri • link register * 

sr3 • m8ntt8r address t8 be examined * 

eutputi sr2 • virtual address (in user's space) 8f m8nit8r * 

ADDRESS * 

SCRATCH* SR4 • CL8BBERFD * 

DESCRIPTT8NJ MAPPER GETS TW8 C8NTIGU8US DYNAMTC PAGES* FRE#: 
• «•*#**#*»*«#*#«*#«««#*«*•#**##*#*#*####«##«#«*»#««.**«*****«**** 



FCU 

LliSRP 

CALljft 

BCSj8 

LI#SR? 

CALl#8 
BCS#8 

LIjSR4 

STS#SR3 

LCI 



XHFEOQ* 

MAPIT 

MAPFAIL 

XflFCoO* 

MAPIT 

MAPFAIL 

X'lFFt 

SR2 





LAST VIRTUAL PAGE 

D8 THE 1ST SAD 

SAD FAILEDi SUA 

NEXT*T8»LAST VIRTUAL PAGE, 

D8 THE 2ND SAD 

SAD FAILED; SUA 

MASK F8R STS 

MERGE PG DISPL I N T8 VIrT PG ADDR 



02 00959 
02 00959 0*5007FS 



#S* 

*s* 
*s* 

*s* 

*s* 

#s# 

*s* 
*s* 
#s* 

#♦#♦###* 
MAPFAIL 



*SR1 RETURN 

SCPEECH C8DEJ 60*04 * 

REP8RTFD BYJ TFL * 

MESSAGfJ TFL ISSUED SINGLE USER AB8RT 8N Y9U * 

type: sua * 

registfrsj sr2 c8ntains the virtual page aqdrfss through * 

which we were trying t8 sad* * 

REMARKS? THIS SCREECH INDICATES A PR8BLEM IN MEM8RY * 

MANAGEMENT 8R A L8GIC PR8BLEM IN TEL WHICH CAUSED # 
THE USEE'S MAP T8 BE LEFT 'DIRTY* FR8M A PREVI8US SAD* 



FGU 
CAL1^5 



MSTRM8DE 



Hoi 



1M 
38* 

39* 
40* 
41* 
4P* 
43* 

45* 
4 ft* 
47* 
48* 
49* 
50* 

51* 
5?* 
53* 
54* 



3ft SEP OS* 
0? 0095A 
0? 0095B 



'75 

0*000000 X 
0U60O104 A 



02 0Q95G 
OP 0095C 229lFEnn 



Op 0095D 
OP 0095E 
OP 0095F 
CP 00^60 



0480O7ED 
2891FC00 
0*8007ED 
ESOOOOOB 



SUA 



SUB-R8UTINFS 
Xt60«j4 
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*D* 
*D* 
*D* 

*D# 
#D* 

*D* 
*D* 
*D* 

UNMAPPER ECU 



NAME! 

CALL? 

REGISTERS 

INPUT I 

OUTPUT! 

SCRATCH! 

DESCRTPTI 



****************************************************** 
UNMAPPER * 

must be called after each call to mapper * 
j uses sri,sr2*sr4t all 8ther are untouched. * 
sr4 • link register * 

TW6 VIRTUAL PAGES ARE RELEASEDt * 

CLOBBERS SRljSRP * 

QNJ u^MAPPER ISSUES MJFVP CAlS F8R THE PAGE * 

INPUT IN SR2 AND THE PAGE F8LLQWING ITt * 

#««***#•«•***«*##*««#***##******#**«#«*«***##*#•*#**** 



LIjSRj? 
CALl#g 
Ll/SRP 
CALlig 

B 



XflFEoO' 

FPFPT 

XUFCOO' 

FPFPT 

*SR4 



LAST VIRTUAL PAGE 
FREE THE FIRST PAGE 
NEXT«T8«LAST VIRTUAL PAGE 
FREE THE SEC0ND PAGE 
RETURN 



HOI 



18J36 < 


SEP 08 


3565 






356ft 






3567 






356R 






3569 






3570 






3571 






357? 






3573 






3574 






3575 






3576 






3577 






3578 






3579 






35 8 n 






3581 






358? 




02 


35g3 


0? 


00961 




0? 


00962 


3584 


0? 


00^63 


3585 


0? 


00^64 


3586 


0? 


00^65 


3587 


0? 


00966 


3588 


0? 


00967 


3589 


0? 


00968 


359o 




02 


359 1 


0? 


00969 


359? 


0? 


0096A 


3593 


0? 


00968 


3594 


0? 


0096C 


3595 


0? 


0096D 


3596 


0? 


0096E 


3597 


0? 


0096F 


3598 


c? 


C0970 


3599 


0? 


00971 


36C0 


c? 


00972 



SUB-R&UTINES 1?7 

PAGE 







*D# 


NAME* 


MFX2EBC 








#D* 


REGISTFRSI 








#D* 




USES SR2#SR4i 


>Dl,D2, PRESERVES ALL »THERS. 






#D# 


CALLJ 










*D# 




BAL#SR4 MEXPEBC 






#D* 


INPUT! 










*D# 




BINARY NUMBER T8 BE C8NVERTED JN S«? 






*D» 


SUTPUTI 










#D# 




RETURNS EBCDIC RESULT IN Dl AND 02 






#D# 


DESCRTPTI8NI 








#D* 




THIS RSUTINE 


C8NVERTS THF NUMBER I N SRg T© 






#D# 




EBCDIC, THE 


RESULT IS RIGHT JUSTIFIED AND 






#D* 




BLANK FILLED 


IN Dl & Dg WITH LEADING 2ER8S 






#D* 




SUPPRESSED, 








*#«**#«««#*•#*#*#««#**«**«#**##«#*«#*#*«*«*#*#•**##«***»*##*###« 


00961 




HEX2EBC 


FCU 


* 




08200030 


A 




PUSH 


3 A R6 




QB600100 


N 










28600969 






LliR6 


HEX2ESKP 


SET F6R SKIP LEAPING ZFR0S 


iSConcoo 


06 




LD/Di 


VERBg 


CLEAR Dt & D2 T© BLANKS 


287FFPF8 


A 




LI#R7 


• 8 




28800000 


A 


MEX2E8C1 


LI#9R1 







2580010* 


A 




SLD#SRi 


4 


MOST SlGt DIGIT TB SRi 


6*OCoOOO 


A 




B 


0**6 


N8P IF SKP FLAG Set 


00969 




HEXgESKP 


FQU 


* 




218QOO00 


A 




ClsSRi 





IS IT LEADING ZE*8 


6*3oo572 






BE 


HFX2EBC2 


YES* IGN8RE IT 


2860O96C 






LI*R6 


•♦1 


RESET SKP FLG T8 BYPASS TEST 


21800009 


A 




CI*SRi 


9 


NUMERIC 


6^200970 






BG 


4*3 


N8j ALPHA 


2U80OGF0 


A 




AljSRl 


X«F0» 




6^000971 






B 


i+2 




20800087 


A 




AI#SR1 


Cf A ' *X V A f 


T8 MAKE EBCDIC 


7&8EOOOE 


A 




STBiSRi 


D3jR7 




6^700966 




NEX2E8C? 


BIR*R7 


HFX2EBC1 


D8 NEXT DIGIT 



HOI 1*836 SEP 08* '75 



3601 


0? 


00973 


31DOO000 


OB 


360? 


c? 


00974 


633ong76 




3603 


0? 


00975 


aoDoncBo 


A 


360^ 


0? 


00976 


0820OO30 


A 




02 


Q0977 


o A 6omoo 


N 


360R 


0? 


00978 


E800000B 


A 



SUB»R8UTINFS 
C^/DP VFRB1 
BNE *+2 
AIjO? C»0'»C» * 
PULL 3*R6 

B #SR* 



ALL BLANKS MEANS ZER8 VALUE 
RETURN, P8SITIVE VALUE 
MAKE RESULT ZER8 
REST8RF SAVED RE&S 

RETURN 



178 



hoi 



18136 f 


5EP 08 


3606 






3607 






3608 






3609 






3610 






3611 






361? 






3613 






3614 






3615 






3616 






3617 


0? 


00979 


3618 




02 


3619 


0? 


00^79 


3620 


c? 


0097A 


36?1 


0? 


0097B 


362? 


0? 


0097C 


3623 


0? 


0097D 


3o 24 


0? 


0097E 


362?? 


0? 


0097F 


3626 


0? 


0098Q 


3627 


0? 


00981 



00979 

22100007 A 
32FoncoC A 
22EonOOO A 
36E0O0O0 X 
20E0OCF0 A 
7§E2000C A 
201FFFFF A 
6»lon97B 

E^oonooB A 



SUB»ReuTlNFS 1/9 

PAGE 
THIS IS A SUB.R8UTINE WHICH CeNVgRTS A BINARY BUFFER PeSfTlSN T& A 
PRINTABLE DFCTMaL VALUEi 
ENTER WTTH 

Dl 1 DIGIT T6 BE C&NVSRTED ( HEX) • 



« 
« 
# 

# 

# 

* 
BINDC8 



EXIT 



WITH 
Dl# 



0? 



CHARACTER RESULT 
REGS Rii D3 AND 04 ARE DESTR9YED 

STATUS ROUTINE EN T Ry P8INT 



RES 



BINDECBCD EQU 
LI#R1 



BINA 



LN#04 

LI/D3 

D*#D3 

AI/D3 

STB#D3 

Al/Rl 

BGEZ 

B 




* 
7 

Dl 



XA 

XfF0» 

Di#Rl 
■ 1 

BINA 

♦ SR4 



Hoi 



18*36 < 


SEP C8j 


»75 




3628 










3629 










3630 










3631 










363? 










3633 










3634 










363?! 










3636 










3637 










363* 


0? 


00982 


Q220OO30 


A 




G? 


00^83 


o*9ooion 


N 


3639 


0? 


00984 


0^400100 


N 


364n 


0? 


00988 


28900000 


A 


3641 


o? 


00^86 


22*00000 


A 


364? 


0? 


00987 


F8B8OO03 


A 


3643 


0? 


00988 


2UBFFF10 


A 


3644 


0? 


00989 


69loo8F7 




364R 


0? 


0098A 


2XB0OO0A 


A 


3o*fB 


0? 


0098B 


6*loo8F7 




3647 


0? 


0098C 


239onooA 


A 


3648 


c? 


0098D 


309QOO0B 


A 


3649 


0? 


Q098E 


2U4QO001 


A 


3650 


0? 


0098F 


6*700987 




3651 


0? 


00990 


359QOC07 


A 


365? 


0? 


00991 


0**00100 


N 


3653 


0? 


00992 


0*200030 


A 




0? 


00993 


A 900100 


N 


3654 


0? 


00994 


E*0OOO0B 


A 



SUB.R8UTINPS 1*0 

PAGE 

* THE DECBIN R9UTTNF ^ILL CBNVjrRT aN EBCDIC DECIMAL CHARADE* STRING TP 

* BlNARYt 

* ENTER WTTH A BALjSR4 AND! 

* R7 i NUMBER 9F CHARACTERS 

* R3 i WftRD AODRrSS 8F FTRST CHARACTFR 

* EXIT WITH: 

* R7 i RFSULT 

* 6THER REGISTERS ARfr RETURNED INTACT 
# 

DECBIN PUSH 3jSR2 



OECBINi 



PUSH 


R4 


LI/SR? 





LI/R4 





l.B#SR4 


#R3*R4 


AI/SR4 


•X»F0» 


BLZ 


SYNTAX 


CI/SR4 


XtA» 


BGE 


SYNTAX 


MliSR? 


XtA' 


a^sr? 


SR* 


Al#R4 


1 


BDR#R7 


DFCBIN1 


STW#SR? 


R7 


PULL 


R4 


PULL 


3jSR2 



REM8VE LEADING F 



*SR4 



Mni 



18136 < 


5£P 08* 


'75 










SUBpRBuTIIMFS 


3655 














PASC 




365ft 










* 


THIS 


R8UTJNE C6NVERTS AN EBDTC HEX FIELD T8 BINARY 


3657 










# 


ENTER! BAL.Rl 


3658 










* 




Dl » 


NUMBER T8 BE CBNVERTED 


3659 










« 


EXIT 


• 




3660 










4 




SRl i 


' BINARY RESULT 


1661 










• 


WHEN k 


\ N8N HEX 


CHARACTER TS ENCBUNTEREDj A NEGATIVE 


366? 










# 


be returned tn 


i SRl T8 INDICATE THE ERR&R, 


3663 










« 








3664 










• 


THE F9LLQWING 


REGISTERS WILL BE DESTROYED 


3665 










« 




R? 




3666 










• 




SRg 


► 


3667 










* 








3668 




02 


00995 




HEX2BIN 


FQU 


$ 


3669 


n? 


00995 


2H8onCOO 


A 






L!#3R1 





367o 


0? 


00996 


222ooe00 


A 






Ll*R? 





3671 


0? 


00997 


7294nooC 


A 


SCN 


LB#SR? 


DijRg 


367? 


0? 


00998 


219Q0000 


A 






CI#SRp 





3673 


0? 


00999 


E«300C01 


A 






BE 


*R1 


3674 


o? 


0099A 


1^900726 








CLM/SP? 


FOF9 


3675 


0? 


0099B 


6»90O9A0 








BCR#9 


CBNTInU 


3676 


0? 


0099C 


19900728 








CLM#SR? 


C1C6 


3677 


c? 


Gf>99D 


689Q099F 








BCRj9 


C0NTINUM 


3678 


0? 


0099E 


6$0009A6 








B 


ERBIN 


3679 


c? 


0099F 


2U900009 


A 






Al#SR? 


9 


3680 


0? 


009AC 


2590O01C 


A 


C6NTINU 


SLS#SR? 


28 


3681 


0? 


009A1 


2&800104 


A 






SLD#SR1 


4 


368? 


c? 


009A? 


2U20O001 


A 






AIjR? 


1 


3683 


0? 


009A3 


2X20OO04 


A 






CNR? 


4 


3684 


0? 


Q09A4 


6^100997 








BL 


SCN 


3685 


0? 


009A5 


E«000001 


A 






B 


#R1 


368ft 










# 








3687 


0? 


009A6 


228FFFFF 


A 


ER81N 


LIjSRi 


•1 INDICATE ERR9R 


36 o o 


0? 


009A7 


E&000001 


A 






B 


•Rl 



1*1 



VALUE WILL 



Hnl 



1RH6 

3690 
3691 
369? 
3693 
3694 
369P5 
3696 
3697 
3698 
3699 
3700 

37CM 

370? 



SEP 08* '75 



0? Q09A8 
0? 009A8 
0? 009A9 
0? 0O9AA 
0? OO^AB 
0? 009AC 



2$50O008 
2U50O040 
38*00000 
5^400005 
E«0OO00B 



SUB.R8UTIKFS 
PAGE 

* THIS SUB-RSUTTNe CREATES A 4 CHARACTER FILE NAME F0R * FiLES. THE 

* LINE NUMBER IS USED T6 MAKE THE NAME UMQUEt A TRAILING L &R R IS 

* T6 DIFFFRENTIATE BETWEEN A R9M QR LMN FILE» THE 2 CHARACTER LINE 

* ENTER 8N BAL,SR* WITH* 

* R5 i HpX L BR R RIGHT JUSTIFIED F8R 0eSJR|0 TYPEt 
WITH Rs C6NTAININQ COMPLETED NAMEt *4 IS PESTLED 



182 

USER 
USED 



EXIT 



* 
NAME* 



RES 

SLS#R5 

AI/R5 

LW*R4 

STH#R4 
B 




8 
X»40» 

J:JIT 

R5 

#|SR4 



HOI 18136 SEP 08, '75 
3703 
3704 
370!? 
370fe 
3707 
3708 
1709 
3710 



3711 
371? 

3713 

3714 

3715 

3716 
3717 

37 1R 

3719 

3720 
3721 
37?? 

3723 
3724 

372B 

3726 
3727 
3728 
3729 

3730 
3731 

373? 
3733 



0? 009AD 
0? 009AE 
0? Q09AF 
0? 009B0 
0? Q098i 
0? 00^62 
0? 009B3 
0? 009B4 

02 009B5 
0? 009B6 
0? 009B7 

0? 009B8 
0? 009B9 
0? 009BA 
0? 009BB 
02 009BC 
0? C09BD 
0? 009BE 
0? 009BF 
0? OO^Co 
0? 009C1 
0? 009C2 
0? 009C3 
0? C09C4 
02 Q09C5 
0? 00^06 
0? 009C7 
0? 009C8 
C? 009C9 
0? 009CA 
C? 009CB 



2230O00C A 
02200030 A 

0*Cooioo N 

72640106 N 
21600040 A 
6«3009C3 
22600000 A 
12C00000 06 
6 a Aqo8AO 
21700000 A 
6830O9C3 
022OOO2O A 
0*C00100 N 
2160004B A 
6«3009C8 
22700000 

22800000 
02200020 
A 900100 
02200030 
A C00100 N 
E«00OO0B A 

02200020 
2 A 90O000 
02200020 
0^900100 
6^0009BA 
02200030 A 
b C0O10O N 
2230OC0C A 
12COOO00 06 



SUB.R8UTINES 
PAGE 

* THIS BIT 8F LftGTC IS USED T8 8BTAIN A COMPLEX FID 

♦ THE NORMAL PRftCpSS F8R THp Si OCB. IF ACC8UNT HAS 

# IT IS OBTAINED FRBM JfT. LMN IS CURRENTLY IN Dl,D 

# ACC9UNT IN SR?#SRa AND PASSW8RD(8R ZeRBS) IN R7,#S 
# 

FID Ll^R3 01 GET NEXT SyB»F!ELD 

PUSH 3,Dl SAVE LMN 



1*3 

*>ri8r t© entering 
n©t been supplied 
$ and d3# return 

It 



fids 



FID2 



FID3 



FID4 



LB/R6 


TFLBUFiR? 


f.I,R6 


t ! 


BE 


FTD3 


Ll#R6 





LD/D1 


VERB2 


BALjSRs 


SCAN 


CIjR7 





BE 


FID3 


PUSH 


P#D1 


CI,R* 


«.' 


BE 


FID* 


LI#R7 





LliSRi 


Q 


PULL 


2,SR2 


PULL 


3iDl 


e 


#SR4 


LCI 


2 


LM#SR? 


JJACCN 


PUSH 


2#SR2 


B 


FID8 


PUSH 


3*01 


LI/R3 


01 


LD#D1 


VERB2 



FID» THIS L^GIC 

IS F8R USE 8N A LMN LBaD FR8M 

THE USER'S ACC8UNT 

BLANK FILL 

WAS AN ACC8UNT GIVEN 

NB 



IS THERE A PASSWORD SUB-FIeLD 
YES 

N8*PUT IN 2ER8S 

REGAIN ACC8UNT 
REGAIN LMN 

G6 PR8CFSS THE RESULT 
GET ACCBUNT FROM JIT 



HOl 1RI36 qEP OS* * 75 



373* 


0? 


009CC 


6 A Ano«A0 




3735 


0? 


OO^CD 


3&C0O007 


A 


3736 


0? 


009CE 


3bDooo08 


A 


3737 


OP 


OO^CF 


O£2ooo3o 


A 




0? 


009DQ 


QACoolOo 


N 


373R 


OP 


009D1 


680009B£ 







SU 


B»R8UTIN^S 


BALjSRi 


SCAN 




STWjDi 


R7 




STWjD? 


SRI 




PULl 


3*Dl 





1*4 



FID2 



Hoi 



1*1 

3739 

3740 
3741 
374? 
3743 
3744 
374K 
374* 
3747 
374* 

3749 
3750 
3751 
378? 
3753 
3754 
375F5 

3756 

37S7 
3758 
3759 
3760 
3761 
376? 
3763 
3764 
3765 
3766 
3767 
376* 
3769 
3770 
3771 
377? 
3773 

3774 

3775 



36 SEP 08* '75 



02 009D2 
0? 009D2 2&10000? 



0? 009D3 
0? 009D4 
0? 009D5 
C? 009D6 



02 
0? 00907 
0? 00^08 
0? C09D9 
0? 009DA 
0? 0090B 
0? 009DC 
0? OO^DD 
0? CO^DE 
0? 009DF 

0? CQ9E0 

o? cosei 



7^200001 
2H000040 
61000003 
E»000004 



009D7 

22AQOO0* A 
3*Aoo002 A 
E820O00B A 

32300001 A 
3840OC03 A 
30*0000? A 
2X300001 A 
6»2009E0 
2U4FFFFF A 
3^600004 A 
3U60OO0A A 



SUB»R8UTINES 
PAGE 

# THIS R8UTIN BLANKS THE SSPEClFIED BUFFER 

♦ R2 • BYTE CeuNT 

• Rl • BUFFER ADDRESS 
* 

BLANKBUF FQU * 

SLSjRI 2 

STBiRg Rl 

Ul#Ro » ' 
MBSjo 3 
B #R4 



185 



* 
* 
# 

# Rl 

# R7 . 

# 
SHFTBUF 



SHIFT COMMAND RIGHT T8 CSNTSTRUCT 18NG F8RM COMMANDS FR8M SH8RT F&Rh» 

* * 8F remaining chars in input request* itE« * tb msve 
# e? characters IN CSMMaND, Determines * T8 m»ve 



FQU 
LI#SR3 

SW#SR3 
BLE4 

LW#R3 

LW/R4 

Afc#R4 

CIiR3 

BLE 

AIjR4 

lW#R6 

AW#R6 



* 

R? 
#SR4 

Rl 

R3 

R? 

1 

i*2 

• 1 

R4 
SR3 



C6MPUTE * 8F P8SITI8NS 1$ 
SHIFT T8 ALL8W 2 l*8RD CMND 
EXIT IF N8NE T© S H IFT 
R3 IS S8URCE BYTE P8INTE* 

C8MPUTE S8URCE BYTE P8INTER 
CHECK IF 1 CHAR C8MND 
M8VE TERMINAT8R 



R6 IS DESTINATI6N BYTE POINTER 

♦ E» ERR8RJ ♦ 

*E* GROUP 03j C8dF»08j SuBCBdFpOO * 

#E# DESCRIPTI8NI « 

*E* THE SIZE 8F THE EXPANDED MESSAGE W&ULD EXCEED TElBUF * 

#E* CK C18BBER TELSTACK), RETURN IS THR8UGH CtEANSTAC*. * 



Hoi 



18J36 SEP 08j 


♦75 








SUB»R8UTlNFS 




377* 


0? 


009E2 


21600050 


A 




CIjR* 


80 


IS SIZE > TELBUF 


3777 


0? 


009E3 


6**2oo9E7 






BLE 


SHPTQS 


N8§ • « 


3778 


0? 


009E* 


2<?C3o800 


A 




Ll#Di 


X»03080C» 


YES* ERR8R C8DE & SUBCeDE. 


3779 


c? 


009E5 


2200o9oF 






LI/Rq 


CLEANSTACK 


RETURN F8R T$£RR 


3780 


0? 


0o9E6 


6*000000 


X 




B 


T$ERR 


REP8RT ERR6R 


3781 










# 








378? 




02 


009E/ 




SHFT05 


fGU 


* 




3783 


0? 


009E7 


2&A00018 


A 




SL8*Sp3 


24 


SR3 IS ALS8 THE AoDlTIaNAL SUE 


3784 


0? 


009E8 


66AQOO00 


X 




AWMjSR3 


JBiCCARS 


6F THE INPUT REQ^FST 


3785 




02 


009ES 




SHFTlO 


eQU 


* 




3786 


0? 


009E9 


72C8O106 


N 




LBjDi 


TELBUF#R4 


MBVE IT 


3787 


c? 


009EA 


7SCCM06 


N 




STBjDI 


TELBUFjR* 




3788 


0? 


009EB 


6*3oo9ED 






BDRjR3 


SHFT20 




3789 


0? 


009EC 


E«00O00B 


A 




B 


♦SR4. 




3790 


0? 


009ED 


6*60O9EE 




SHFT20 


BDRjRfc 


SHFT30 




3791 


0? 


009EE 


6*4qo9E9 




SHFT30 


BDR*R4 


SHFTlo 




379? 










# 









1*6 



Hoi 18136 SEP 08* » 75 
3793 
3794 
379R 
3796 
3797 
3798 
3799 
3800 

3801 
380? 

3803 
3804 
38QS 



3806 
3807 
38Q8 

3809 

3810 
3811 
381? 

3813 
3814 
3815 
3816 
3817 
3818 
3819 

3830 
3821 

382? 
3823 

3824 
382R 

3826 
3827 



02 
0? C09EF 
0? 009FO 
0? 009F1 
0? 009F2 
0? 009F3 
0? 009F4 
C? 009F5 
0? 009F6 
C? 009F7 

0? 009F8 
0? 009F9 

0? 009FA 
0? OO^FB 
C? OO^C 
02 
0? 009FD 
0? Q09FE 
0? 009FF 
0? COAOO 
0? OOAOl 
0? 00^02 
0? 00^03 
0? 0OAO4 
0? 00*05 
0? 00AC6 
C? 00AC7 
0? 0OA08 

C? 00A09 



009E^ 

22C00000 A 
22D0O000 A 
2230OO0C A 
6AA0O8AO 
0^200020 A 
0»100lOO N 
21700004 A 
6*2008F7 
6Aloo995 
6?100«F7 
6A400000 X 
OMOOAIA 

22000040 A 
6*0009FF 
009FU 

7*>0E000C A 
20700001 A 
21700004 A 
691009FD 
22D3OA00 A 
^ 6 C0OQ0D A 
6 A BooOCO X 
3SD2O001 A 
FS200001 A 
0*2ooAlE 
222FFFDD A 

13200100 N 
0220O02O A 



SUB»R©UTINFS 
PAGE 

# THIS ROUTINE OELETES ANY INPUT SYMBI0NT 

# WITH THP SPFCTFIED SYSID. IF THE SYSIO 

# THE UOB IS ABORTED! IF THE CURRENT USERS 

# THE SPECIFIED *JBB)t 
# 

CANCEL FGU * 

LlsDH 

LltOp 

LI*R3 01 
BALjSR* SCAN 
PUSH 2#Rl 



1*7 



FILES IN THf SYMBIONT TABUS 



CNCL9 
CNCL10 



# 
MULIDS 



CliR7 

BG 

BALjRi 

BL2 

BAL*R4 

CALlii 

LliRo 

B 

FQU 

STB#Rq 

AI#R7 

CI#R7 

BL 

LI#D? 

XW#Di 

BALiSR4 

STW#D? 

STB#R? 

CALl*? 

BUMP 



PULL 



4 

syntax 
hfX2Bin 

SYNTAX 
FMTELCL 

CANCL 
Xi40» 
CNCLlo 
$ 

DuR7 

1 

4 

CNCL9 

X»030AC0« 

0? 

T*ERRTXT 

IjRI 

♦Rl 

SENOCNCL 

•(MAXMSG##»2)jR2 



2jR1 



REFERS TO 
ACCOUNT . 



SVSID BUFFER 



GET SYSID 

SAVE SCANfS REGS 



RUNNING BATCH ^OB 
'HE ACCOUNT OF 



SYSID MUST BE < 5 CHARS 

CONVERT TO BINARY 

B IF ERROR 
SAFETY CLOSE 

DELETE IT 

SUPPLY TRAILING BLANKS 



IN SPECIFIED ID 

DONE 

NOT DONE 

ERRMSG KEY FOR 'CANCELED* 

SAVE TFXT FOR ID IN D2 

GET MSG 

STORE ID INTO MS« 

MAKE MSG TEXTC 

GIVE MSG BUFFER BACK 



HOI 



18! 

3828 
3829 
3830 
3831 
383? 
3833 
3834 
3835 
3836 
3837 
3838 
3839 
3840 
3841 
384? 
3843 
3844 
3845 
3846 
3847 
3848 
3849 
3850 
3851 
385? 

3853 
3854 
3855 
3856 

3857 

3858 
3859 
3860 
3861 
386? 
3863 



36 SEP 08* 

C? OOACA 
0? OOAqB 
0? OOAoC 
0? 00*00 



'75 

OMooion N 
21100C01 A 
6&20OC1D 
6*0OO9EF 



SUB«R8UTINFS 



1*8 



02 00 
0? OOACE 
0? OOAqF 
C? 0OA10 
0? OOAll 
0? 00Al2 



22200001 
7224000A 
2&20O07F 
21200039 
6^3ooAl6 



0? 00A13 
C? 00A14 
0? 00A15 



0? OOAlfi 
0? 00A19 



22C3OA01 A 
28000A09 
6^000000 X 



02 OOAlfe 
0? 0OA16 2X20003A A 
C? 00A17 6^300681 



28C3OA02 A 
68000A14 



02 00A1A 
0? OOAiA 2^000133 N 
0? OoAlB 8^000000 A 
0? 0OA1C OUOOOAOE 
0? OOAlD 8U000008 A 



CIjRi 

BLE 



1 

PR9MPT 
CANCEL 



M8RE TDtS 

N8PE 

D8 NEXT SYSID 



* 
CNCL20 



FQU 

Ll'R? 

LB#R? 

SLSjR? 

C!*R? 

BKE 

#E* FRR8R1 
*E* DESCRT 

#E* 



ABN8RMAL 8N DELETf 
GET SUBC8DE 



* 

1 
SR3#R? 

X»39» IS IT THAT THE IP D8ESNT EXIST 

CNCL30 B IF N8 

♦##♦##♦#######♦#########♦##«########♦#♦#####♦#####**#•### 

GR8UP 3i C8D|TfOAj SUBC8Df«01 * 

PTI8NI THf SYSID SPECIFIED D8£S N8 T MATCH THE * 

USER'S ACC8UNT 8R IS INVALID. # 



CNCLMSQ 

# 
CNCL30 



LI*D1 

LIjRo 
B 



X»030A01» 

MULIDS 

T«ERR 



ERR8R C8DE & SUBCODE 

T8 SCAN F8R M8RE AFTER MSQ 

TYPE ERROR MSG 



IS IT T88 LATE 
GIVE HIM EH 



FQU i 

CI#R? Xt3A» 
BNE QIVEMEH 

#£# FRR8R1 
♦E* DESCRI 



L!#Di 



QR8UP 3/ C8DEiOAj SUBC8DE*02 * 

PTI8NJ THE SPECIFIED SYSID D8ESN'T E*JST y ET ®* * 

HAS ALREADY CBMPLETED * 



B 



# 
CANCL 



FQU 
GENj8j 
GENj8j 
DATA 

P£E 
MjMESSGE FPT 



X'030A02' 

CNCLMSG 



?4 X»2F!#MjTEL 
?4 X«88*jQ 

CNCL20 

#SRi 
T8 TELL 8PERAT8R 



ERR8R C8DE & SUBCODE 



ABN 
tCANCELEDf 



Hoi 18:36 SEP 08* »75 SUB«R8UTlNFS 1*9 



Ian* < 


?EP 08 j »75 






3864 


C2 OQAlfc 


SCNDCNCL rOU 


* 


3865 0? 


OOAlE OUOOHOOO A 


DATA 





3866 0? 


OOAlF 8U00OOOO A 


pzr 


#0 


3867 0? 


OOAgQ 8U00D001 A 


PZE 


#R1 



Hoi 



l*: 

S868 
3869 

3870 
3871 
387? 
3873 

3874 
387!? 

387ft 
3877 
3878 
3879 
3880 
3881 
388? 
3883 
3884 
388R 

3n«H 

3887 
3888 
3889 
3890 
3891 
389? 
3893 
3894 
3895 



36 SEP 08* f 75 



0? Q0A21 
0? Q0A21 
0? 00A22 
0? C0A23 
0? 00*24 
C? 00*25 
0? 00A?6 



0? 00A27 
C? 00A28 
C? 0QA?9 
0? 00A2A 
0? OOAgB 
0? GOA?C 
0? OOA?D 
0? 00A2E 



28200106 N 

22300000 N 

2^200102 A 
7840OC00 X 

21400050 A 
6**200A?9 



22C30801 A 

6«00070E 
7^400003 A 
61200000 A 
E*000000 A 
28300106 N 
22200000 !M 
6»00OA23 



TFICCBUF 

BUFC8M 



*E* 
#E# 
*E* 
#E* 
*E# 
*E* 

#r# 



PAGE 

R2 

R3 

RES 

Ll#R? 

LI#R3 

SLDiR? 
LB#R4 

CI#R4 
BLE 

FRR8R: 



SUB»R8UTlNFS 
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*FR8M 

■ T8 



TF.LBUF FR9M 

JlCCBUF T8 

2 
JBJCCARS 

80 MAX CHARS 

**3 SIZE 8.K» 



GR6UP 03, C8DF*08, SUBCQDE«01 

DESCRIPTION? 

IN TRANSFFRRING COMMAND T6 8R FR8M JjCCBuF# 
THE SIZE IN JIPUF IS > 80. THIS IS REALLY 
A M8RF SERI9US PR8BLEM THAN THE eRNQR MSG 
INDICATES, SINCE SBME8NF HAS UND8U&TABLY STEPPED 
0N THE JIT FIFLD. 



LI/Di Xt03080i» 

B CMNERR1 

STB#R4 R3 

MBSjR? o 

B *o 

CCBUFTEL LI#R3 TElBUF 

Ll*R? JJCCBUF 

B BUFC8M 



ERROR C8DE & SUBCeDE 
TELL USER & AB8RT 



T8 



HOI 



1RI36 
1* 
2* 
3* 
4* 
?S* 
** 
7# 

8* 
9# 

10* 
11* 
IP* 
13* 
390? 

3903 

3904 

3905 
3906 

1* 
3911 

1* 

391P 

3913 

1* 

P* 

3# 

4* 

B* 

6* 

7* 

ft* 

9* 

10* 

11* 

lp* 

13* 

14* 



SEP 08j '75 



SUBROUTINES 
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02 00A2* 



OP OOAgF 
0? 0OA30 
0? Q0A31 
OP 00^32 
0? OOA33 
0? 00A34 
OP OOA35 
0? 00A36 



6 A 400000 X 
6A400A37 
6*30fiA36 
3^80000* A 
2890O10O N 

0*80O7ED 
3^800004 A 

E»00O00F A 



PAGE 



*0* 
#D* 
#D* 
#D* 
*D* 
*D* 
#D* 
*D* 
*D* 

*D* 



NAMES FREEBUFl * 

call? called before exiting or aborting tfL * 

registfrsi uses r4#rs*sr1#srp>d4 * 

input? d4 • link register * 

6UTPUTI S6UF1 IS REUSED IF IT'S IN THE USSR'S MAP * 

INTERFACES CALLS KTLLMTEL T8 RELEASE TElfS DYNAMIC PCB * 

DESCRIPTIONS FREEBUFl FIRST RELEASES MjTrL AND * 

THEN FREES SBUFi (IF PRESENT). THE CHECK IS SLIGHTLY* 

REDUNDENT, STNCEE NOTHING IN TEL WOULD W9RK jF We * 

LOST SBUFI BEFORE WE GOT nEREt * 



#*#«###♦♦###♦♦#####*###########**##########♦######»#♦♦#####»*#######*### 



FREEBUFl FQU 



$ 



# RELEASF MSTEL BEFORE LOSING PAGE 



FR3FXT 



BAL#R4 

BAL#R4 

BE 

STWjSRi 

LI#SR 2 

CALL* 8 
LW^SRt 

B 



KTLLMTEL 

CHKBUF1 

FR8FXT 

R4 

TELSTACK 

FPFPT 
R4 

*D4 



RELEASE M?TEL »DCB» 

DO WE HAVE SBUFI 

NOj RETURN 

SAVE SRI FROM TjFVP 

YES, 

LOSE IT 

RESTORE SRI AND 

RETURN, 



NAMES CHKBUF1 

CALLj CALLED AT INITIAL ENTRY TO T£L AND BEFORr EACH 

EXIT OR ABORT (BY FREEBUFl )• 
REGISTFRSI USES R4,R5jSR2. ALL OTHERS ARE UNTOUCHED. 

tnrutj r4 • link register 

outputs returns to Call*i if sbufi is not in user's map 
returns to call+p if sbufi is in th? user's map 
rcratcmi clobbers r5#sr2 

DESCRIPTIONS JXSCMaP IS CHeCKfD F0R FPMC AT JgBUFlVP 



02 00A37 



###*♦♦♦####»#♦##♦♦###*♦#####♦♦##»#####*########♦###♦«♦#*####*#######*#*# 



CHKBUF1 ECU 



« 



Hoi 



18*36 SEP C8# '75 



m* 


0? 


00A37 


22500000 


N 


16# 


0? 


00A38 


2*900000 


N 


17* 


OP 


00 A 39 


719AOOOO 


N 


18* 


02 


00A3A 


6«38oOOO 


A 


19# 


0? 


00A3B 


6^080001 


A 


20* 











SU8pR6UTINFS 
LI,R5 JsBUFiVP 
LliSR* FPMC 
CBMPARFjSR? JXJCMAP^Rg 
BE 0,R# 
B 1*R4 



PAGE NUMBER ©F S«UFl 
FREE PAQE MAP C6NSTANT 
D6 WE HAVE THE BUFFER 

n©j Return *i 
YESj return *2 



1^2 



Hoi 



1AI 

391ft 
3917 
391ft 

3919 

3920 

3921 
392? 

392. 3 
3924 

3925 
392ft 
3927 
392ft 

3929 

3930 
3931 
393? 
3931 
3934 
3935 
393ft 
3937 
393ft 
3939 

3940 
3941 
394? 

3943 
3944 
39453 
394ft 
3947 
394ft 
3949 
3950 
39B1 
395? 
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SUB«R»UTINFS 
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0? OOA3C 
C? 00*3C 



C? OOA3D 
0? 00A3E 
0? C0A3F 
0? 00*40 
0? 00*41 
0? 00*42 
0? 00A43 

0? OOA44 

0? 00A44 
0? 00*45 

0? 00A45 

0? C0A46 
0? 00*47 
0? 00*48 



0*200100 N 



32100100 N 
20100006 A 
0220OOEO A 
2 A 2ooBlC 
2*220000 A 
32800001 A 
2U1FFFFC A 



O^SOOAEB 



6*BooADO 
6AB0OO00 
32100000 
32E2OO0C 



#S# 



*s* 



PAGE 
CL8SF 

©pen 

THe; R8UTI 

THE USFRS 
FRBM THE 

IrfhlCH TS 
1* 
?• 

3t 

4* 
C8NTENTS 
THIS RfiUT 



TYPEjDSNE 

type^dbne 



# 

« 

# 
« 

# 
# 
# 

* 
# 
# 
STATUSL RES 

PSWjR? tflstack 

# COMPUTE ELAPSFO TIME 

# 

LW^Ri TFlSTACK 

AIjR1 ft 

LCI 14 

LMjRg TFXTUUNK 

STMjRp QjRl 

H*#SRi Ri 

Al#Rt mk 

« 

D8l F8RSEC 

P6W,SRi TFLSTACK 

CALl«i TIMER 

D61 F9RSEC 

PLW,SRl TFLSTACK 

BALjSR* TIMEVFRT 

BAL#SR4 REAOAM 

LW # Rt JtABUF 

LM*D3 IPjRI 



NF STATUS PRINTS 8UT THf F8LL8WING LINE QN 

TERMINAL *HFN TME CALL STATUS IS RECEIVED 
USER I 

CPU ■ MtMMMM C8N • HJMM INT ■ NN CHG * XXXX 
I 

CPU TIME IN MINUTES 
C8NS8LE TTME IN N8URS AND M8NUTES 
NUMBER 8F INTFRACTI8NS 
TBTAL CHARGE UNITS 

8F ALL REGFSTFRS CAN BE ASSUMED T8 BE DESTR8YED BY 
INEt 



CRFATE STATUS LINE 8UtPUT 
SAVE RFTURN ADDRESS 



GET BUFFER ADDRESS F8R 8UTPUT 
MESSAGE 

M8VE 8UTPUT TEXT T8 
BUILD BUFFER 

SET INDEX T8 HaNPlE 4 WORDS FOR 
TIME CAL 

SRl DFSTRYED BY MjtiMe 



REST8RE SRl 
C8NVERT TIME T8 
NOW D3 HAS MlNi 
GET JJTIME FR8M 



BIN MIN FR9M IgJOO 
FRBM MIDNt IN BIN# 
A/M TABLE 



Hni 



18? 

3953 
3954 
3955 
3956 
3957 
3958 
3959 
3960 
3961 
396? 
3963 
3964 
3965 
3966 
3967 
3968 
3969 
3970 
3971 

397? 
3973 

3974 
3975 
3*76 
3977 
3978 
3979 
3980 
3981 
398? 
3983 
3984 
3985 

3986 
3987 
3988 
3989 



36 SEP 08* 


♦ 75 






SUBROUTINES 


0? 


00A49 


SlDoocog; 


A 


Ct*,D? 


D3 


0? 


00A4A 


68100A4C 




BGE 


*+£ 




oooooooo 




De 


F8RSEC 








*S* 1DAY 


FQU 
FLSE 


1440*60 




000Q03AU 


1DAY 


PGU 


1440 










FIN 




0? 


0CA4B 


2UD0O5AO 


A 


Al#D? 


1DAY 


c? 


00A4C 


38DOO00E 


A 


SW#D? 


D3 




ooooocox 




oe 


FBRSECiO 


0? 


OOA4D 


O^DOOIOO 


N 


PSWjO? 


TELSTACK 


0? 


00*4E 


22COOOOO 


A 


Ll#01 





c? 


OOA4F 


36ConBgF 




DW#Dl 


« 60 


0? 


OOABO 


3S3»Coo009 


A 


STWjDt 


SR2 


0? 


00A51 


32ConooD 


A 


L>,Di 


0? 


0? 


00A52 


6ABqo979 




BAL4SR4 


BTNOCB 


0? 


00A53 


38000009 


A 


L*#Di 


SR2 


0? 


00A54 


35D0O009 


A 


STW#D? 


SR2 


0? 


C0A55 


6AB00979 




BALjSR4 


BTNDCB 


0? 


00A56 


22C0407A 


A 


Ll#Dl 


t V 


c? 


00A57 


SbCooooD 


A 


STH#D1 


0? 


0? 


00A58 


32C0O009 


A 


LW#Di 


SR2 


0? 


00A59 


6AB00AEI 




BAL#SP4 


ZERB8K 


0? 


00A5A 


2^D0O?08 


A 


SCSjD? 


8 


0? 


0CA58 


2$C00378 


A 


SCD'Dl 
ELSE 


• 8 








*S* 


L*#R7 


SRI 








#s# 


LIjDI 











*S« 


DW,Dt 


• 60 








♦s# 


PSWjDg 


TELSTACK 








#s# 


STW#Dg 


7#«7 








♦s# 


BALjSR4 


BINDCB 








#s* 


X^ # D? 


7 # R7 








*s# 


Ll#Di 











*s* 


DW#Pl 


■ 60 








*s# 


STlNiD? 


R6 








*s* 


BALiSR4 


BINDCB 



1^4 

C8MPARF L8GBN yJ M F WITH LB38FF TiM£ 
IS L©G8FF TIME L^SS THAN L&G&N tJmE 



F8R CR8SSING MIDNIGHT 

SUBTRACT L8G8N TIME FR8M L8G8FF TIME 



SAVE MINUTES 

SETUP 01 F8R OIViDE 

GET TIME IN HRS AND 

SAVE MINUTES 

C8NVERT H8URS T8 FBCDIC 



INSTRUCTION, 
MINUTES. 



GET MINUTES 
SAVE H8URS 
CONVERT MINUTES 



T8 EBCDIC 



D2 • t J MM I 

GET HBURS AGAIN 

C8NVERT LEADING 

D2 » f IMM t 

DliD2 ■ * H»j »HJMM* 



CTN EBCDIC) 
4ER8S T8 BLANKS 



DiltBlN SECSi D2l.BIN T8T MINS 
BIN TBT MINS ARE SAVED 
TEMP SAVE 8F BIN T8T MlNS 

DgJiEBC SECS 

D2!»BIN T©T MINS' SAVE E»C SECS 



Dli^BlN 
R65*BIN 
D2I-EBC 



MINSJ 

HRS 

MINS 



D2?»BIN HRS 



HOI 



1*836 SEP 08* 
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SUB»RQUTINFS 


3990 








#s* 


LIjDl 


» I' 


3991 








#s# 


SLSjD? 


1ft 


399? 








#s* 


LI*R? 


3 


3993 








#s* 


LW,R3 


R7 


3994 








#s* 


SLSjR3 


*? 


399R 








«s« 


Al*R3 


6*4+2 


399ft 








#s# 


STB#R? 


R3 


3997 








#s* 


Ll#2 


il 


3998 








#s# 


MBSj? 





3999 








#s* 


LW,Di 


Rft 


4000 








#S* 


BAL4SP4 


BINDCB 


4001 








*s» 


SLS#R7 


+ 1 


400? 








♦s# 


STHiD? 


6jR7 


4003 








#s# 


SLSjR7 


• 1 


4004 








»s# 


Ll#Rl 


7*4*1 


400R 








#s* 


LliDl 


»l» 


40Cft 








*s# 


STBiDi 


#R7/Rl 


4007 








*s* 


L^# Di 


ft#R7 


4008 








*s# 


LW# D? 


7iR7 


4009 










FIN 




4010 


0? 


00A5C 


38700008 


A 


LW#R7 


SRI 


4011 


0? 


00 A 5D 


3SCE0006 


A 


STW,Di 


6jR7 


401? 


0? 


COAgE 


3^»Drno07 


A 


STWjD? 


7#R7 


4013 








# 






4014 








# 


COMPUTE CNARGr 


UNITS 


4015 








# 






401ft 


0? 


0QA5F 


32600100 


N 


LWjRft 


TELSTACK 


4017 


0? 


OoAfeO 


2U60004E 


A 


Al#Rft 


78 


4018 


0? 


00A61 


ononAF? 




CALIjI 


ORATE 


4019 


0? 


00A62 


oMoneoi 




CALIjI 


RRATE 


40?0 


0? 


00A63 


0^100808 




CALiil 


CRATE 


4021 


0? 


00A64 


38100000 


X 


LW#Ri 


JJABUF 


40?? 


0? 


OOAftB 


22C7OC0O 


A 


LI#D1 


X« 70000' 


4023 


0? 


00A66 


4bC2000D 


A 


AKD#D1 


13jR1 


4024 


0? 


00Aft7 


2SCQO070 


A 


SLSjDi 


*1 6 


4025 


0? 


00A68 


6^3onA6A 




BKll 


$+2 


402ft 


0? 


0OA69 


2"C00001 


A 


AI>D1 


1 
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II' TO PRECEDE MM IN BuFFeR 

SHIFT FBC MINS NfcxT TO 1 H 

COUNT FOR MBS 

R3J»WA(DEST> 

R35i8A(DEST)»6#4*? 

R3J«BA(DEST) 

SET COUNT IN RU1 

R2 J *BA< SOURCE) (BYTE 3 OF pi) 

|MM INTO BUFFER. t. 

RESTORE BIN HRs 

D281EBC HRS 

R7 NOW HALF WORD aDDR 

HH INT8 BUFFER 

R7 WORD ADDR AGIAN 



SS INTO BUFFER 



PUT MINS ♦ HRS TJME IN MESSAGE BUFF 
IN LOGON Te BE POINTED OUT LATER 



GET BUFFER TO READ RATE ULE 

OPEN RATE FILE 

READ IT 

CLOSE IT 

CHECK TF THERE IS ANYTHING IN JjHAT 



IF JjRATE « Qs SET DEFAULTS 
IF NOT/ DEFAULT Te TABLE 1 



Hni 



18! 
40P7 
4088 
4029 
4Q30 
4031 
403? 

4033 
4034 
403F5 
403ft 
4037 
4038 
4039 

4040 
4041 
404? 
4043 
4044 

4045 
404ft 

4047 
4048 

4049 
4050 
4051 
405? 
4053 
4054 
4055 
405ft 
4057 
4058 
4059 

4060 
4061 
406? 
4063 



36 SEP 08/ 
0? OOAfeA 

0? COAfeB 
0? C0 A 6C 
OP Q0A6D 
0? 0OA6E 
05? 00A6F 
0? 0OA70 

0? OOA7I 

0? 00A72 

0? 00A73 

OP 00A74 

0? 00A75 
CP 00 A 76 
0? 00A77 
C? 00A78 

0? 00A79 

0? 00A7A 
OP 00A7B 

0? 0OA7C 

0? 00A7D 

OP 0OA7E 

C? 00A7F 

C? 00A80 

0? 00A81 

0? OOAgg 

CP 00 A 83 

OP 00A84 

OP 0OA85 

0? 00A86 

OP 00A87 
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B06CO00C A 

32D0O0OQ * 
3UDQ0001 N 
3UD0OO0O X 
3UD00001 N 
37CCOOOO A 

l^EonooC A 

3^Donoo? N 
30D0O002 N 
37CCO001 A 

lOEonooc A 

22D1FFFF A 

4°Dooooo * 

37CCO00P A 
IUE00OOC A 

38D0O00O X 

3/CCO003 A 
lQEonOOC A 

O^DOOIOO N 

22CQFFFF A 
^ d CooOOO F 
22D0FFFF A 
^WDonOOO F 
30C0OOOD A 
28DQFFFF A 

**DqoOOO F 
3UC0O00D A 
32D0OO0C A 
3?CC0004 A 
lUEonooC A 



AW/ 

# TflTAl CPU 

L*/ 

AW/ 

A**/ 

AW/ 

mw# 

LD/ 

# C8RE»T!ME 

AW/ 

m, 

AD/ 

# TERMINAL I 

LI/ 

AND 

MW, 
AD/ 

* i/e cals 

L^/ 

MW/ 
AD* 

# ELAPSED T! 

PLW 

# T8T 
LI/ 
AND 

LI/ 
AND 
AH/ 
Li/ 
AND 
AW, 
LW/ 
MW/ 
AD/ 

# TAPES 



SUB»R0UTINFS 

Rft #D*/Rft 
TIMF 

D? JIUTIME 

D? JjUTIME+i 

DP JJPTIM£ 

DP JIPTImE*! 

Dl o#R6 

D3 D1 

DP JtUTIM£+p 

DP J!PTImE*2 

D1 1/R6 

D3 Dl 
NTFRACTI6NS 

D? XtlFFFFi 

/Dp JJINTFR 

Dl 2,R6 

D3 Dl 



\*6 



JlCALCNT 

3/R6 
D1 



Op 

D1 
D3 

ME 

/DP TFlSTACK 

AL NUMBER OF I/B 8PFRAT 

Dl XtFFFFt 

/Dl JUlT-fTPACCESS 

DP XtFFFF' 

/D? JSJIT*DCACCESS 

Dl Dp 

Dp XtFFFFt 

/D? JUIT+DPACCESS 

Dl DP 

Dp Dl 

D1 4#R6 

D3 D1 



SET UP POINTER IN RATE FILE 

TOTAL USER EXECUTE TIMf 
TOTAL USER OVERHEAD TIME 
TOTAL PROCESSOR fcX E CUTl8N jI^E 
TOTAL PR6CESS8R OVERHEAD TImE 



USER C6RE-TIME FACTOR 
PROCESSOR C»RE»TlME FAcTOr 



LOAD MASK 

GET NUMBER OF CONrgle INTERACTIONS 



GET NUMBER 8F 1/8 CALS 



LOAD ELAPSED TIM& 
IONS 



CHARGES IN PENNIES 



HOi 



1*836 < 


5EP CSj 


»75 






SUB»R8UTINFS 


4064 




ooooocou 




Z4 FGU 





4065 










REFji 


JBlTMTBiJBiPMTS 


4066 


C? 


00 A 88 


22Doonoo 


A 


LI#D? 





4067 


C? 


Q0A89 


22500000 


N 


LIjRS 


JBJTMTS+Z4 


406R 


0? 


COAgA 


720AO000 


A 


LB,RO 


0#R5 


4069 


C? 


OOA«B 


3000OC00 


A 


AW#D? 


RO 


4070 


C? 


C0A8C 


28500000 


N 


LI*R5 


jBtPMTS*Z4 


4071 


c? 


COAgD 


780A0000 


A 


LBiRO 


0#R5 


407? 


0? 


00A8E 


3PD0O0OO 


A 


A»mD2 


RO 


4073 


0? 


00A8F 


37CCO008 


A 


Mfc#Di 


5jR6 


4074 


0? 


00A9C 


lPEooooc 


A 


AOiDa 


Oi 


4075 


0? 


0OA91 


38000000 


F 


LW#Ro 


cpe+jjuiT 


4076 


0? 


00A92 


2SS00O06F 


A 


SLSjRo 


• 17 


4077 


0? 


Q0A93 


38DAO000 


F 


lw*d# 


CP8+JUIT 


407A 


0? 


0OA94 


25D0006F 


A 


SLSjD? 


• 17 


4079 


0? 


0OA95 


3OD0O00O 


A 


Ato#D? 


Ro 


4080 


0? 


00 A 96 


32000000 


X 


L^jRo 


J:CPP8 


40*1 


0? 


00A97 


2$00O06F 


A 


SLS#Ro 


•17 


408? 


0? 


0OA98 


3UDQOC00 


A 


Afc/D? 


Ro 


40*3 


0? 


00A99 


3800O000 


F 


U # Ro 


CUP8*J$UIT 


4O84 


0? 


00A9A 


2500O06F 


A 


SLSjRo 


•17 


4085 


c? 


00A9B 


30D0OO0O 


A 


AW>D? 


RO 


4086 


0? 


0OA9C 


32000000 


F 


LW#Ro 


CDP8+JIJIT 


4087 


0? 


00A9D 


2^00O06F 


A 


SLSjRo 


• 17 


4Q88 


0? 


0OA9E 


3UDQ0000 


A 


AtojD? 


Ro 


4089 


0? 


0OA9F 


37CC0007 


A 


MN*D1 


7#R6 


4090 


0? 


OOAAC 


10E0OO0C 


A 


AD#D3 


01 


4091 


0? 


OOAAl 


36EQ0011 


N 


DW/D3 


TFNTHQU 


409? 


c? 


00AA2 


32C0O00F 


A 


L^#Di 


04 


4093 


0? 


00AA3 


6AB 0979 




CHARGES BAUSR4 


BINDCB 


4094 


0? 


OOAA^ 


6 A B0OAEl 




BAL/SR4 


ZFR8BK 


4095 


0? 


0QAA5 


32700008 


A 


L*'R7 


Sri 


4096 


c? 


QQAA6 


3bC^nooD 


A 


RTWjDi 


13#R7 


4097 


0? 


Q0AA7 


3&DE!nOOE 


A 


STtojDp 


14i«7 


4098 










# 




4099 










* GET T8TAL, CPU TIME 


4100 










# 





137 



TAPES M8UNTEQ 



RACKS M8UNTEP 



get card input c8unt 

shift t8 right^justtfy the count 

get card punch 9ut c©unt 

shift t8 right.jurtify the c8unt 

add cd input c8unt tb punch8ut csunt 

GET PR8CESS0R PAtiFS 8UT C8UNT 
SHIFT T8 RIGHT.JUSTIFY THE COUNT 
ADO CURRENT PR8C&RS8R PGS 8UT T8 T8T 
GET CURRENT USER RAGES 8UT C8UNT 
SHIFT T8 RIGHT. JUSTIFY THE C8UNT 
ADD RESULT T8 T8TAL 
GET DIAGN8STIC PAGES 8UT C8UNT 
SHIFT T8 RIGHT.JUSTIFY THE C8UNT 
ADD C8UNT T8 T8TAL 



CHG UNITS IN PENNTESt 
C8NVERT CHG UNITS T8 EBCQIC 
C8NVERT LEADING 4ER8S T8 BLANKS 

PUT CHRG UNITS IN MSGE BUFFER IN 
18G8N.PRINT 8UT LATER F8R 8N LlNfct 



Hoi 



18&36 SEP 08# 


'75 








SU8»R8UTINF 


4101 


0? 


00 A A8 


32CoooOG 


X 




L*#Di 


JJUTIME 


410? 


0? 


C0AA9 


3UC0O001 


N 




A*,D1 


J*UT1Me*1 


4103 


0? 


OOAAA 


3UC0O00O 


X 




AW#D1 


JJPTIME 


4104 


0? 


OnAAB 


3uConooi 


N 




AWiDi 


J;PTIME*1 


4l0g 


02 


OOAAC 


56C0OB30 






Dh,Dl 


■ X»0003000C 


4106 


0? 


OOAAD 


6*800979 






BALiSR4 


B7NDCB 


4107 


0? 


OOAAE 


2$Co0008 


A 




SLS#Di 


a 


41C8 


02 


OOAAF 


20CQO04B 


A 




AIjDi 


ft* 


4109 


0? 


OoABo 


6ABonAet 






BALjSR^ 


ZrR»BK 


4110 


c? 


COABl 


38700008 


A 




LW#R7 


SRI 


4111 


0? 


OOAB2 


02200020 


A 




LCI 


2 


411? 


02 


OOA83 


2**CE0C02 


A 




STM # Di 


2**7 


4113 










# 






41 14 










# 


GET CBNS8LF INTERACTI&N 


411R 










# 






4116 


c? 


OOA84 


22CiFFFF 


A 




Ll/Dl 


XflFFFF* 


4117 


0? 


0OAB5 


4WC0O000 


X 




aND#D1 


J1JNTFR 


4118 


0? 


00AB6 


6AB00979 






BALjSR4 


btndcb 


4119 


02 


0OAB7 


6ABonA£t 






BALjSR* 


ZPR8BK 


4120 


0? 


OOABg 


32700008 


A 




LW/R7 


SRI 


4121 


0? 


00AB9 


3bDEoOOA 


A 




STWjD? 


10#R7 


41.2? 










# 






4123 










» 


F8RMAT MESSAGE F8R 8UTP 


4124 










# 






4*25 


0? 


OOABA 


32400100 


N 




LN#Rft 


TFLSTACK 


4126 


02 


OOABB 


2U40004E 


A 




A!#R4 


78 


4127 


0? 


OOABC 


32500008 


A 




LW,R«5 


SRI 


4128 


0? 


OqABD 


2230O03C 


A 




LI#R3 


60 


4129 


0? 


OOABe 


22100000 


A 




LI,R1 





4130 


02 


OOABF 


22200000 


A 




LI1R2 





4131 


0? 


OOACO 


6»00OAC3 






B 


HXX 


4132 


0? 


OOACl 


2XCooo4o 


A 


M AaL 


Cl/Di 


I ! 


4133 


02 


00AC2 


6»3ooaCa 






BE 


HXX& 


4134 


0? 


0OAC3 


F2C20005 


A 


HXX 


LB*D1 


♦R5/R1 


4135 


02 


0OAC# 


F5C40004 


A 


MXXC 


STB#Dt 


*R<mR? 


4136 


0? 


00AC5 


2^200001 


A 




AliR? 


1 


41,37 


02 


C0AC6 


20100001 


A 


NXXU 


Al/Rl 


1 



l98 

GET T8T USER EXECU TIMg FOR CURR*J8B 
ADD T9T USER EXE&U TIMe T8 TBTAL 
ADD T8T PR8CESS EXEC T?ME T8 T8T 
ADD PR6CESS8R 8H TIME T© 8THER T^TAL 
C8NVERTS TICS T8 MINUTES 
CSNVSrT TIME TQ EBCDIC 



C8NVERT LEADING ZfR8S T8 BLANKS 
M8VE T8 MESSAGE Area 



STRIP Q?F 1STM/2 WD*N8t INTERACTION 
C8NVERT THE NUMBER T8 BCP 
CONVERT LEADING *rR8S T8 BLANKS 

PUT NB. INTERACT* IN 8N-LINE MSGt 



GET ADDRESS 8F 8UTPUT BUFFER 

GET ADDRESS &F TEXT T8 BE 9UTPUT 
L8AD MESSAGE SIZE 
L8AD POINTER T8 PR8CURtN« AREA 
LfiAD P8INTER T8 SJ8RAGE AREA 



PICKUP TEXT BYTE 

ST8RE TNT8 BUFFER 8UTPUT AREA 

C8UNT 



HOI 



18136 SEP 08j 


175 








SUBROUTINES 


41 38 


0? 


00AC7 


6*30OACl 






BDR#R3 


NXXL 


4139 


0? 


ooACa 


OMooBOA 






CAtlM 


TYPE 


4140 


C? 


00AC9 


6«00OACE 






B 


DONE 


4141 


C? 


OOACA 






MXXB 


RES 





414? 


0? 


OOACA 


f^c^noos 


A 




LBjDi 


*R5*Ri 


4143 


0? 


00AC8 


81C0O04O 


A 




CI#01 


t t 


4144 


0? 


OOACC 


6»300AC4 






B\E 


HXXC 


414F5 


C? 


OOACD 


6&00OAC& 






b 


NXXU 


414ft 


C? 


OOACE 






D8NE 


RES 





4147 










* 






4148 










*#######»pKD $F 


ROUTINE********** 


41 49 










♦ 






4150 


OP 


OOACE 


0*200100 


N 




pLUsR? 


TFLSTACK 


4151 


0? 


OQACF 


E»00O00P 


A 




B 


*R2 



199 



FINISHFD WITH ROUTINE 
NEXT 



NO 
YES 

DONE WHEN WE GET MERE 



RETURN 



HOI 



181.36 SEP cs* 


'75 










SUBROUTINES 




415? 














PAGE 








4153 










* 


THE TIMFVERT SUBROUTINE PULLS ' 


fHE H8UR/MINUTE TlMfc FROM TIMBUF A 


41 54 










• 


CONVERTS TT TNT9 A BINARY, 


MINUTES FROM MIDNIGHT REPRESENTATION, 


4155 










* 


STORES 


THE RESULT IN JIT, 






4156 










* 


ENTER 


*TTH BAU 


SR4t TIMBUF 


MUST 


HAVE HAD A MJTJMe D8NE INTO IT? 


4157 










« 












4158 










# 




TF SFCFLAQ SETj sr? 


MUST 


CONTAIN DATA FROM MJTIME 


4159 


0? 


OOADO 






TIMEVERT 


RES 









41.60 




cooooool 








D8 


FfiRSECiO 






4161 


0? 


COAOO 


B2Cooooi 


A 






Lto,Di 


#Rl 






4162 


0? 


OOADl 


2230O00C 


A 






LI/R3 


12 






4163 


0? 


G0AD2 


22200002 


A 






Ll*R? 


2 






4164 


0? 


00A03 


6AA00B0C 








BAL#SR3 


OECBIMo 






4165 


0? 


00AD4 


354Q0003 


A 






STW,R4 


R3 




MICKEY MOUSE FOR MI INSTRUCTION 


4166 


OP 


00AD5 


2330OO3C 


A 






MI#R3 


60 




CONVERT HOURS TO MINUTES 


4167 


0? 


00AD6 


0^300100 


N 






PSWiR3 


TELSTACK 




SAVE RESULTS 


416ft 


c? 


0OAD7 


B^CooOOl 


A 






LW#Di 


♦Rl 




AND GET MINUTES VaLUE 


4169 


0? 


00AD8 


20100001 


A 






AliRl 


1 






4170 


0? 


00AD9 


B8D00001 


A 






LW#D? 


*R1 






4171 


0? 


OOADA 


25C0OU8 


A 






SLD#Dl 


24 






417? 


0? 


00AD8 


2230OO0C 


A 






L I'R3 


1? 






4173 


c? 


OOADC 


22200002 


A 






LIjR? 


2 






4174 


0? 


OOAOD 


6AA00B0E 








BAL#SR3 


DECBIN10 






4175 


0? 


OOADE 


O^DooiOO 


N 






PLWjD? 


TELSTACK 






4176 


0? 


OOADF 


3UD0O004 


A 






aW # D? 


R4 




CURRENT TIME TO Dg 


4177 


c? 


COAEO 


E^OOOOOB 


A 






B 


#SR4 






4178 














ELSE 








4179 








♦8* 






LBjR3 


SR2 




GET HRS 


4180 








*S* 






MUR3 


60*60 




MRS •> SECS 


4181 








#s# 






STWiR3 


D? 




ACCRUE IN D2 


418? 








#s* 






SLS#SR? 


8 




SHIFY IN MINS 


4183 








♦s# 






LB/R3 


SR2 






4184 








#s# 






M!jR3 


60 




GET MINS •> SECS 


4185 








*s* 






aW,d? 


R3 




ACCRUE 


4186 








«s« 






SLS/SR? 


8 




SHIFT IN SECS 


4187 








#s« 






L8#R3 


SR2 




GET SECS 


4188 








♦s* 






A^#D? 


R3 







2Q0 

NO 
AND 



HOI 



4189 
4190 
4191 
419? 
4193 
4194 
419R 
4196 
4197 
4198 
4199 

4gon 

4?C1 

4?0? 
4P03 
4?C4 
420R 



SEP C8# '75 



OP 
C? 
0? 

0? 
Op 

0? 

0? 
0? 
0? 

0? 



OOAEl 
0OAE2 
00 A E3 

Q0AE4 
00AE5 
0OAE6 
00AE7 
00AE8 
00A£9 

OOA£A 



2«lFFFFg 
72FgnOOE 
21FonnFo 
E93onooB 

2gFon040 

75>FgnooE 
2UFFFFE 
E^30n00B 
6&10nAEP 

ESooocob 



#s# 



« 
# 

zfrbbk 

2ER6BK1 



FIN 

CHANGE 

D4#Rl 

Ll,Rj 

LB/U4 

CI/D4 

BNE 

LIjD* 

STBiD4 

CI*Ri 

BE 

BIR,Ri 

B 



SUB«ReUTlNFS 
#SR4 



RETURN 



801 



LFAD 

p OCB 

USED 



ZERBS 
ALSa 



INT8 BLANKS 

ANSWER 



D1*2#R1 
*0» 

*SR4 
t 1 

0l*2iRl 
»P 

#SR4 
ZERBBKl 

#SR4 



character cbuny and byte pointer 
get next Character fr©m left 

IS IT A ZERB 
IF NBTj EXIT 
IF IT IS* SUBSTITUTE A SPACE 

DBNfT CONVERT LAST ZER6 



HOl 



1*136 SEP C8# »75 



SUB.R8UTINES 



292 



420* 










4207 










4208 










4209 










42in 


o? 


ooaeb 


90000001 


A 


4211 










4212 










4213 










4214 


02 


COAEC 


4 100B08 




4215 


0? 


OOAED 






421* 


02 


OOAED 


2&CQ0140 


A 


4217 


02 


00 A EE 


0*800100 


N 


421ft 


02 


QO A EF 


3<28onioo 


N 


4219 


02 


QOAFo 


2Q800006 


A 


4220 


02 


OOAFl 


6»00OAA3 





PAGE 



• PLIST T6 6BTATN DATE/TIME 
# 

TIHER GENjA«i#a3 X t 90 »jF8RBEC#Rl 

# 

* C6ME NrRE 9M ©PEN OR RFAD ERR8R BF RATE FILE 
# 

CRATER CAL1#1 crate CL8SE it up 

RATEERR RES 

SLDjDi «*4 ZER8 CHARGE UNITS DESTINATION 

PLW,SRi TFLSTACK 

LW^SRi TELSTACK CALCULATE ADDRESS 8F 

Al#8Ri fe TEST AREA 

B CHARGES C8NTINUE PR8CESSJNG 



Hoi 



18136 S 


SEP 08* 


«75 








SUB»RaiJTlNFS 




4221 












PAGE 






4222 










# 








4223 










# 


RATE FtLF PARAMETER LISTS 




4224 










« 








4225 


02 


0OAF2 






8RATE 


RES 







4226 


02 


00AF2 


I4oono00 


N 




GEN#8j24 


X?14!,MJXX 


8PEN RATE FILE 


4227 


02 


00AF3 


C*4onoo9 


A 




DATA 


XtCF400009t 


PljP«jP5#P6iP7jP8*Pl0'F9#Fl2 


4228 


C? 


OOAF4 


oooooaed 






DATA 


RATEERR 


ERR8R RETURN ADDRESS 


4229 


02 


OOAFB 


0000OAFD 






DATA 


RATEERR 


ABNSRMAL RETURN ADDRESS 


4230 


C2 


00AF6 


OUOOOOOA 


A 




DATA 


10 


REC6VERY TRIES 


4231 


02 


OOAF? 


00000001 


A 




DATA 


1 


C0NSECUTIVE 


4232 


02 


0OAF8 


00000001 


A 




DATA 


1 


SEQUENTIAL ACCESS 


4233 


02 


00AF9 


oooonooi 


A 




DATA 


1 


INPUT M&DE 


4234 


02 


OOAFA 


00000002 


A 




DATA 


2 


SAVE 


4235 


02 


OOAFB 


01000202 


A 




DATA 


Xt01Q002C?t 


FILE NAME 


4?36 


02 
02 


COAFC 
OOAFD 


057Ar>9C! 
E3C54040 


A 
A 




TEXTC 


» IRATF! 




4237 


02 


QO A FE 


0^010202 


A 




DATA 


Xt02010202» 


ACCeUNT 


4P J8 


02 
02 


OqATF 
COBOO 


7AE2F8E2 
40404040 


A 
A 




TEXT 


MSYS t 




4P39 










« 








4240 


02 


00801 






RRATE 


RES 







4241 


02 


00^01 


10000000 


N 




GENiR 4 P4 


X?lQt,M|XX 


READ RATE FILE 


4242 


02 


00^02 


F4000000 


A 




DATA 


XtF4000000' 


P1jP2#P3#P4jP6 


4243 


02 


00^03 


OOOOOAFC 






DATA 


MiRATFR 


ERR8R AD 


4244 


02 


00^04 


OOOOOAEC 






DATA 


M1RATER 


ABN AD 


4245 


02 


OOBCS 


80000006 


A 




GENii j-u 


1#R6 


BUFFER AREA 


4246 


02 


00^06 


00000120 


A 




DATA 


288 


MAXIMUM SIZE 


4247 


02 


00 B C7 


00000000 


A 




DATA 





BYTE DISPLACEMENT 


4248 










# 








4249 










« 


CLeSF RATE FILF 




4250 










# 








4251 


02 


C0«08 






CRATE 


RES 







4262 


02 


00^08 


l^Oonooo 


N 




GEN#8j24 


X»l5f jMIXX 


CL9SE RATE FILE 


4253 


02 


00^09 


oooonoon 


A 




DATA 







4254 










* 








4255 










* 


TYPE BK I 


JSFR»S TERMINAL 





203 



HOI 



18136 REP 08* 


♦75 








SUB»R8UTINPS 




4?5£ 






# 








4P57 0? QOBCA 


lioooooo 


N 


tvfe 


GENj8jP^ 


XtilfjhJUC 


NRITE T8 USER'S TfRMINaL 


4358 0? OOBOB 


30000000 


A 




DATA 


Xi 30000000 » 


P3#P4 


4259 c? oo**oC 


80000004 


A 




GEN,1 jU 


1*R4 


BUFFER MESSAGE 


4?6o 0? QO B OD 


80000002 


A 




GEN,im 


1#RS 


BUFFER SUE IN R8 



204 



HOI 



18136 SEP 08* 


'75 








SUBROUTINES 




4961 












PAGE 








4262 










# 


C8NVFRTS 


EBCDIC STRING T6 


\ BINARY 


4263 










* 


R2 V Nftt 


6F CHARACTERS 




4264 










* 


R3 ■ WRRD ADDRrSS 


6F 1ST 


CHARACTER 


4265 










# 


R4 « RfSULT 






4266 










« 


FKTER WITH BAL 6N 


SR3 




4267 










* 


CCI !S SET IF AYN 


ERR6RS 


BCCURERS 


426* 










« 










4269 


02 


QOfciOE 






DFCBIN10 


RES 









4270 


C2 


OOBOE 


22400000 


A 




LliR4 









4271 


0? 


OOBOF 


225Q000Q 


A 




LI#R5 









4272 


02 


00^10 






DECBINU 


RES 









4273 


02 


ooeio 


F2680003 


A 




LBjR* 


*R3#R4 






4274 


02 


00B11 


2Q6FFF10 


A 




aIjR6 


•X?FO» 




REM6VE LEADING 


4275 


02 


00^12 


235QO00A 


A 




MljRg 


10 




MULTIPLY BY 10 


4276 


02 


00^13 


6S»4ooBlA 






BCS44 


DirCBlNg! 




CHK F&R ILLEGAL 


4277 


02 


00 B 14 


30500006 


A 




AWjR5 


R6 






4278 


02 


00Bl5 


20400001 


A 




Al*R4 


1 






4279 


02 


00^16 


64gooBiO 






BDRjR? 


OECBINU 






4280 


02 


00^17 


3&50O004 


A 




STW#R5 


R4 






4281 


02 


00&18 


0220OO00 


A 




LCI 







SET CCI P F6R 


4282 


02 


C0819 


EdOOOOOA 


A 




B 


*SR3 




EXIT 


4283 


02 


00B1A 






0ECBIN21 


RES 









4284 


02 


OOBlA 


08200080 


A 




LCI 


8 




SET CCU ■ 1 F»R 


4285 


02 


OO^lB 


E&0OOO0A 


A 




B 


#SR3 
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»F ' 



WFSULTfi 



Geeo Result 



bad result 



HOI 



18136 < 


5EP 08 


4286 






4287 


0? 


OOBlC 


4288 


02 


OOglC 


4289 


02 


OO^lC 


4290 


02 


Q081D 


4291 


02 


OOBlE 


429? 


02 


CO^lF 


4293 


02 


GC 8 20 


4294 


02 


00^21 


429R 


0? 


00«22 


4296 


02 


00B23 


4?97 


02 


00^24 


4298 


02 


00^25 


4299 


02 


00826 


4300 


02 


00B27 


4301 


02 


C0B28 


4302 


02 


C0B29 


4303 


02 


0082A 


4304 


02 


00«2B 


4305 




02 




02 


0082C 




02 


00»2D 




02 


C0B2E 




02 


C0B2F 




02 


00^30 



SUB»R8UTlNrS 



i$ A 
1 C3D7F4 A 

4U7E4040 A 
4U4Q4G40 A 
404Q4040 A 
4U40f3D6 A 

DS7E4040 A 
40404040 A 
40404040 A 
4UC9n5E3 A 
407E4C40 A 
#0404040 A 
40C3C8C7 A 
407E4040 A 
4U404040 A 
40404040 A 
OOOOOOOO A 
QOCOO 

#0404040 A 
40D6DS40 A 

IOqcoooo A 

0000003C A 
00030000 A 



PAGE 
TEXTUUNK RES 

CPU DATA j i 
DATAj3 

TEXT 

CPUV TEXT 
TEXT 
TEXT 
TEXT 

C6NV TEXT 
TEXT 
TEXT 
TEXT 

INTV TEXT 
TEXT 
TEXT 

CM3V TEXT 
TEXT 
DATA 

END 
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Xf 15? 

CPU? 



CO 



imp 



INT 

§ 

CHG 




TEL 



MESSAGE AREA 



TILLED 
FILLED 



FILLED 
FILLED 



FILLED 



FILLED 

FILLED 

END 6F MESSAGE 



CftNTRSL SECTION SU"MaR v | ol 00000 ?T 

05 00028 PT 1 



02 00031 PT 1 
06 0O03A PT 1 



03 00028 PT 1 



0* 00020 PT 1 



HOI 1**36 SEF 08# '75 

* SYMB8L values 

ABKPfT/02 00943 
ASSFMBLE/O? 0080E 
BASIC/02 00744 
BINDCB/OP 00979 
BK8PT0/02 00833 
BREAKER/02 0Q823 
BUILDA/06 000C8 
CCBUFTEL/02 QOASC 
CHGv/02 0CB29 
CMKQTVPE/02 00*^8 
CNCLP0/02 OOAOE 
C8CftFF/0? 00546 
C8CSTATC/02 005*7 
C6MMA/02 00*58 
C8NCATA/02 00843 
C8NTTNU/02 009AU 
C8NVBIN/02 OOsE? 
C8UPLE3/02 00SA6 
CPU/02 OOBlC 
ClCfr/O? 00728 
DBITP/05C0084C 
DC^PrS/02 0082D 
DECBTNi/02 00987 
DEC8UPLE/Q2 0C5»7 
DELTAl/02 00734 
DISPSW/02 006FF 
D6LP/Q? 0Q1 Q 1 
D8MFP/02 00i61 
D88N/Q? 00168 

Dsmeep/02 00703 

D4/0O00000F 
FHMSG/02 0071D 
ErBTn/02 009A6 
FXTFND/02 00581 
FIDFR/02 00816 
F104/0P 009C8 



ABRTN/02 00684 
AT82/02 006BC 
BATCH/02 0073A 
BITS/00000001 
BKUPCAL/02 007E1 
8UFC8M/Q2 00A23 
CANCgL/02 009EF 
CHARGES/02 00AA3 
CHKBUFl/02 00A37 
CMNDSET/02 0023F 
CNCL30/02 00A16 
C8C8N/Q2 00P45 
C8CSTAT0/O2 OO4F3 
C8MMENT/02 0025A 
C8KCATB/02 0084B 
C8NTINUE/02 002E6 
C8UPLE/02 0058C 
C8UPLE5/02 OO6B1 
CPLV/C2 OOBiE 
DBJTS1/04 OOOlD 
DBL10/02 OOOAF 
OEBUQ/02 00?*9 
DECB1N10/02 OOBOF 
DELTA/02 00736 
DISC8PR8C/0O00000O 

DNTSEND/02 0061B 
D8L61/02 001DF 
D8KE/02 OOACE 
088VER/02 0016A 
Dl/OOOOOOOC 
EDIT/02 00738 
pNTPRG/02 0012A 
ERRABN1/02 00924 
FDP/02 0072F 
FI08/C2 009BA 
FLAGS/02 0071F 



SUB»R8UTINFS 

ANSPR8C/00000000 
Al/OP 0013B 

BATCH2/0P 0070B 
BKMSQ/02 00755 
BKUPKEY/02 007DF 
BUFINT/OP 00016 
CANCL/02 OOAlA 
CHAR8K/02 008C8 
CHKULM/OP 00231 
CNCLMSQ/02 00A14 
CNCL9/C2 QO9FD 
C8CPRT/0? 00510 
C8CSTAT1/0P OO4F4 
C8MPILE/02 00811 
C8NCATE/02 00853 
C8KTTNX/02 002EB 
C8UPLE1/02 00B93 
CPLCMN/O? 00596 
CRATF/02 0OB08 
DBITS2/04 OOOlF 
DBUG/OOOOOOOO 
DEBuGl/02 002B3 
DECBINll/02 OOBlO 
DELTA8K/Q2 002F8 
DISPFPT/02 OOgFA 
D8BLT/02 00P05 
D8ME/02 001S9 
D8NT/02 OOPRE 
D88VER1/02 00160 
D2/00000000 
EDITA/02 0072A 
ERASE/02 00B7D 
ETMFOT/OP 005FE 
FDPSFT/02 002FE 
FIDP/02 009BE 
FLBPBITS/02 00724 
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ARS/00000004 S 

Backup/02 0O65E 

BINA/02 0097b 
BKgPT/02 00837 
BLANKBUF/OP 009D2 
BUILD/02 00237 
CARR£TRN/0P OO7IC 
CHAR8K5/0P 008CE 
CHNGERR/02 004CD 
CNCLlo/02 009FF 
C8CML88P/02 OO4FE 
C8CSTAT/02 004D0 
C8CSTATP/0? OO4F6 
C8NCAT/02 00841 
C8NCATN/02 0084D 
C8NV/02 00B22 
C8UPLEP/02 00599 
CPLMSG/02 00568 
CTFPT/02 007F3 
P8IT1/LIST 
DCBPR»C/O0000000 
DEBU^P/02 00256 
OECBIN21/02 00B1A 
OELTASET/OP 002F2 
DISPLaY/02 OO5BC 
OQLL/02 00711 
D8ME1/02 0015D 
D8NT&K/02 OO0C4 
08UBLF1/02 000A8 
D3/0000000F 
EDIT0/02 0023B 
ERASFPT/02 007E9 
EXTD&8/02 001C5 
FDP1/02 00730 
FID3/02 009C3 
F8RSEC/00000000 



Wol 18J36 SEP C8# »75 
F8RTRAN/C2 0Q74U 
GC8MNPG/02 OO7D 1 
GETS81/02 00005 
GIvFMEN/08 0Q6B1 
QR8UP8B/08 ooocw 
GRPeXTg/02 00CE6 
HEX2FSKP/Q2 GC969 
HXXL/O? CQACl 
ITSBK/02 OOO7I 
J8B/02 00695 
JRUNNG/Qg 0Q687 
LINK/02 0073C 
LISTp/02 00280 
LLlNFS/02 0075A 
L8BLT/n2 001E8 
L8MF/Q? 002*0 

L88P1/02 008AD 
LSTAT/06 0001C 
MAXMSG/0000008C 
Mg/OP 00713 
MESSAGFl/02 0C632 
MESSAGF5/02 0C6S4 
MM1/D2 Q0549 
MM5/n2 00559 
M8DFC^/02 OO53B 
MSGMFSS/02 006* A 
MULJ8B/02 0O6C6 
Mll/0C00000 tt S 
Mlg/nOOQOOOF S 
M19/00000013 S 
M22/00000016 S 

M26/O00Q001* S 
M3/CD000003 S 
M4/OOOOQOO4 S 
M8/0O0O0008 S 
NBIT30/EXT 

NLSAVE/Q0000102 S 



F8UNDP/Q2 00*A7 
GETACPAS/02 004RE 
QETSW/02 006E0 
G8TUSR8/Q2 0O86R 
GR8UP2C/Q2 OOOP? 
HEX2BIN/02 00995 
HXX/02 0GAC3 
HXXU/Q2 00AC6 
I7S8K10/02 0007S 
J8BCAL/02 007E7 
JWAIT28T/02 Q06C4 
LIST/02 002*9 
LIST3/02 00286 
LMNCMD/02 00095 
L8FINS/02 OOlFD 
L8ME3/02 00222 
L88P5/02 OOftAA 
MAPFAIL/02 O0959 
HCPLO/02 00574 
MEANQT/02 00601 
MESSAGE2/02 00636 
METASYM/02 0C73E 
MM2/02 0054D 
MM6/Q2 0055D 
M8NPR8C/00000000 
MSRCP/02 00S6C 
Ml/00000001 S 
MIP/OOOOOOOC S 
MlA/00000010 S 

M2/00000002 S 
M23/00000017 S 

M27/0000001B 8 
M30/00C0001E S 
Mg/00000005 S 
H9/00000009 8 
MExTTIME/02 00079 
N8/02 00715 



SUB»R8UTIN'FS 

FRBFXT/02 0QA36 
GETIO/02 OO7P2 
GETSWX/OP 006F6 
GR8UP2/02 000C8 
GRPEXT/02 OOODD 
HEX2EBC1/02 00966 
NXXB/02 OOACA 
INBREAK/02 0010D 
JCMPLT/OP OO6B5 
J8BHSG/02 006BA 
JWAIT2RN/0? 006BC 
LISTC8M/02 0026C 
LIST4/02 0028B 
LMNCMD10/0? 0009A 
L8G8FF/02 00742 
L8MG8/02 001EE 
L8SETUP/02 001F7 
MAPIT/02 007F6 
MCTCPL/Q? 007EF 
MESSAGE/02 00*2E 
MESSAGE3/02 00649 
MGSI/02 00147 
MM3/02 0055? 
MM7/02 00560 
MPBlTS/OOOOOOOO 
MUCRSET/FFFD7ECF 
MlRATER/02 OOAEC 
M13/O00O00OD S 
M17/00000011 S 
M20/00000014 S 
M24/00000018 S 
M28/0000001C S 
M31/0000001F S 
M6/00000006 S 
NAME$/02 009Ag 
NFNDt/02 00896 
N8C8CM/QP 0050C 



&ASP/02 003EA 

GgTPb/02 007P2 
QiIVEblRO/02 00262 
GR8U^2A/02 000C9 
QRPE*Tl/02 OOOOF 
HEX2EBC2/0p 00972 
NXXC/02 00AC4 
INTV/Q2 00B26 
gDNTEXT/02 00 6 B9 
J8B2/02 006A6 
LAS/02 0020B 
LIST1/02 0027C 
LIST5/02 00289 
LMSG/02 00720 
L8GSIZE/EXT 
L88P/02 008A9 
LP/02 00714 
MAPPER/02 0094F 
MDCPL/O? 007EE 
MESSAGEO/02 00*1F 
MESSAQE4/02 0064C 
MMo/OP 00547 
MM4/02 00555 
MMg/02 00564 
MSACP/02 00570 
MULlPs/02 00A09 
MlO/OOOOOOOA S 
Ml4/0O0O00oE S 
M18/0O000012 S 
M21/00000015 S 
M25/00000019 s 
M29/Q000001D S 
M32/00000020 S 
M7/00000007 S 
NAmEVlP/02 00725 
NFND2/02 0089C 
N8DEL/02 00103 
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HOI 1*836 SEP OB* * 75 

N8DRNT/02 000C5 
N8tfSG/02 0003F 
8PEN1/02 0068C 
©PUSR/O? 007A6 
PAGf/Q? OOif^D 
PARSr/02 00126 
PCL/02 0072C 
PIDGMSG/Q2 0003U 
PLATFN3/02 00477 
PRMPT50/02 O0C67 
PIUFRR/02 00S6C 
RDlUSERS/02 0083D 
PFE/02 00890 
R9MDFV1/02 O0lA» 
RUN/02 0Q810 
R1/OOO000C1 

R5/00000005 
SCANp/02 008A3 

SCNVFRB/02 0082^ 
SEKD/O? 006X6 
SETUP/02 00014 
SHFTPO/O? 009ED 
S12FR/02 00692 
SIZFTERM/OOOOCOOB 

RRCMTAB1/02 0C43F 
SR4/OGOQ000B 
START1A/02 0029? 
STAPT5/Q2 Q02C8 
STAPT75 / 02 Q02B8 
STATuSl/02 0QA3L 
SUA£n/02 00 7 18 
SWRSFT/02 0O6DC 
SYSACT/02 007CF 
TABSA/02 OO^FO 

TABS4/02 00*22 
TELCCBUF/Q2 0CA21 
TERMS/02 008DC 



N8FGG/02 00043 
N8NE/02 007*0 
8PERR/02 00341 
8RATE/02 OOAFg 
PARENC/02 OO8D5 
PARSER/02 0012D 
PCLCALL/02 00814 
PLATEN/02 00448 
PLATEN4/02 O047D 
PR8MPTA/02 00049 
RADPLUS/Q2 0Q5E7 
RDfRT/02 00*90 
R8M*8LT/Q2 00181 
R8MG8/02 00194 
RWUSR/02 0079E 
R2/00000002 

R6/0Q0Q0006 
SCN/02 00997 

SCRAMBLE/02 0034P 
SENDCMN/02 006 1C 
SHFT8UF/02 009D7 
SHFT30/02 009EE 

SIZETABI/OOOOOOOC 
SI2VEPB1/O0O000P7 

SRI/0000000* 
STACKO/0000015B ! 
START2/02 002A0 
START6/02 002CD 
START8/02 OO2D5 
STKINIT/02 00710 
SWGKEY/OH 0O6D0 
SWSET/02 006DA 
S69PR8C/OO0O000I 
TABSl/02 00414 
TABSB/Q2 00426 
TEKTHBU/QOOOOOli 
TERMTA81/02 007F9 



SU8*RBUTlNFS 
N&FDP/QP OOOFF 
N8PTAB/0P 00266 
8PRSF/0P 00170 
8UTCARR/02 00612 
PAREN8/02 008D3 
PASSCLUP/02 00335 
PGDR8P/Q2 007D3 
PLATFN1/02 00469 
PRINiT/02 00S79 
PR8MPT0/02 0002A 
RADSQT/02 OO608 
READ/02 00794 
RBMiBLTl/02 0018A 
R8MG81/QP 00199 

RiaUSRSZ/00000006 
R3/00000003 



R7/Q00I 
SCNPTR! 



10007 

iV/OOOOOUA 



SCRAMBLX/02 0034D 
SENDCNCL/OP 00A1E 
SHFToB/QP 009E7 
SH8W/02 003B0 
SUETABP/OOOOOOOF 
SIZVFRBg/OOOOOOlC 

SR2/00000009 
START/02 0028F 
START3/02 002BD 
START7/Q2 002B2 
START9/0P 002DD 
STL88P/0P 0067A 
SWITCH/OP 006CB 
SYN3/Q2 009oF 
TABPL/02 007B8 
TABSP/02 0041C 
TABSA/02 Q042B 
TEPMERR/02 OO83B 
TERMTABp/OP 00806 



N8LINF/02 005BS5 
8PENBKUP/02 QQ7BF 
9PTAb/02 00264 
9UTPUT/02 00258 
PARMSG/02 00750 
PASSW8RD/0P 0030B 
PIDQFLG/00000018 S 
PUT£N2/02 00473 
PRMPT20/02 00062 
QUIT/02 00119 
RATEERR/02 OOAED 
READBKUP/Oa 007D4 
R8MDEV/02 0019E 
RRATE/02 OOBOI 

KO/00000000 
H4/00n0O004f 

SCANtVT/02 00083 
SCNVBsiZ/Op 00827 

SECAC/02 00783 
SENDMFS/02 007E4 
SHFTXn/02 Q09E9 
SH8WXx/02 0036A 
SJZETAB3/OOO0OOOF 
SPCASP/02 QOOBo 
SRS/OnOOOOOA 
STARTrRR/OP 00831 
START4/02 002C4 
START70/02 002Bo 
STATUS/02 0060E 
ST8PS/02 008PF 
SW8NE/02 00707 
SYS/OP 00712 
TABS/02 003F0 
TABS3/Q2 00435 
TABS7/Q2 00432 
TERHINAL/Op 00^93 
TERMTAB3/0P 0080A 
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Hoi 18836 SEP 08* f 75 
TERWTST/02 OOgBO 
TESTSl/O? 0013C 
TIMfR/02 OOA^B 
TMSLB/oS 0Q74C 
TSTAKSZ/OOOOOOA^ 
TTVPp/02 00524 
TTYP6/02 00S31 
TX1/02 00719 

UK'DFR/q2 00^32 
VECT/O? 000«4 

VECT8RS/02 0082» 
WHEPFl/02 003gC 
WHERR/o2 003D5 
WMREaD/02 0P3BE 
WRITFRC/Q2 0C7DA 
XEXIT/02 00103 
X100/00000009 
X200/Q0Q0000A 
X4CO/0O0O0OOB 

X800/0000000C 
YEXIT/02 OOlQB 
YCOO«/00000014 
VCOg/OOOOCOlg 
YQ8/O0OQ0G1C S 
V8/0O0O0020 S 
iDAY/ooOOOBAo 
* EXTERNAL DFFINITIGNS 
AMBUF/FXT 

CLEANSTACK/02 Q09qF 
CPXUfiR/OOOOOOlC S 
D8M8IT/0000100U 

FDP8TT/00000100 
FLPP/Q? 0086F 
FcF<9/02 00726 
IKBPrAKl/O? OCUg 
MlTFL/00000133 S 
NFND/02 008^1 
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TERMTSTl/02 OOSBp 
TESTSI1/02 0013F 
TIMEVERT/02 OOADO 
T9PPARSE/02 001PF 
TTYPTAB/02 00518 
TTYP3/02 00R26 
TTYP7/02 00536 
TYPE/02 OOBoA 
UNMAPPER/02 009RC 
VECTABl/Op 0008C 
YECT9R1/Q3 00000 
WHERE2/02 00391 
WHERRl/02 003E4 
WHSC/02 Q03A8 
WRIT8UT/Q2 O067F 
XSH8*/02 00746 
XlOOO/OOOOOOOD S 
X2O0O/0O0OOO0E S 
X40O0/000OOO0F S 
X8000/00000010 S 

YOOOl/OOOOOOll S 
Y001/00000015 S 

Y01/00000019 S 
Yl/OOOOOOID S 
ZER8BK/02 00AE1 
$R8M/02 001BB 

BlKDECBCO/OP 00979 

CMKERRl/02 0070E 
DCBTAB2/Q000C12D S 

exlybit/ooooooib S 

FEXTIM6/00000103 S 
FL8P8UF/O0OO011B S 
GETFIELO/02 0048A 
TQUIT/00000013 S 
MlTELSIZ/OOOOOO?* 
NTJBST/02 0082F 



SUB»R8UTINES 

TERMjYPr/02 00513 
TESTS12/02 00142 
TMJD8/02 0074E 
TP/OP OOPFC 
TTYPo/02 00520 
TTYP4/O& 00B29 
TXAlL/02 0071A 

UDELT/02 00244 
USERSQT/02 OOSFB 
VECTAB2/02 0008D 
VECTBR2/04 00000 
WHERE3/02 0039A 
i*HM/02 003DF 

WI0TM/O2 00757 
WUSR/02 007A4 
Xl/00000001 S 
X2/0O000O0P S 
X4/00000003 S 
X&/00000004 S 
YBLK/02 008B7 

Y000P/00OOOO1P S 
YOOP/00000016 S 

YG2/0Q00001A S 
Y2/0000001E S 
ZER8BK1/Q2 00AE2 



BRKBTT/OOQOOOOJ? 
CeMFLG/00000400 
OECBIN/OP 00982 
EXPNDSZ/00000105 
FlQ/02 009AQ 
FPFPT/02 007ED 
GPFPT/02 007EC 
JSTEP/OOOQOOOl 
MSQEBIT/00020000 
8N/QP 00716 



TESTEftM/02 0014A 
TEXTgUNK/02 00B1C 
TMIG8/02 0074A 
TPFLb/OOOOOOlD S 
TTYP1/02 00522 
TTYPS/02 0052D 
TX0/Q2 00718 
UFLAGS/OOOOOOOO 

UTSPWBC/OOOOOOOO 
VECT«10/02 O00C7 
^HERt/02 0036E 
WHERE4/02 003B7 
fcHOPEN/02 003C4 
WR|U8FRS/oa 00329 
XABeKT/02 00117 
X10/00000005 S 
X20/00000006 S 
X40/00000007 S 
X80/00000008 S 
YESFUP/02 OOOFD 

YOOO^/00000013 S 
Y004/O0000017 S 
YO4/OOOOQOIB S 
Y4/0000001F S 
44/00000000 



CCBUFBIT/00002000 
CPxE N 0/02 00046 
DELTABIT/00000080 
EXTNDBlT/00000016 S 
FIPROc/00008000 
FREEttUFl/02 00A2F 
HEX2fcBC/02 00961 
UaFLG/00000800 
MSTRMBOE/02 007F8 
9NBIT/00000020 
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HOI 1RJ36 SEP OB* '75 

8NFRR/02 001C9 
SVEPBIT/00O0004U 
PR8MPTF/02 0004t 
SETByF/EXT 
SINPREL/00000C08 
SYM/O? 00903 
TELBUF/00000106 
UKKLMN/00000015 
rtRITF/02 00790 

* PRIMARY REFERENCES 

AMjftRG 

C8CLN 

DPACCESS 

JUBC 

JJCPP8 

JJPTTMp 

JBlFRS 

JSBUF1VP 

NAME 

RCvPsD 

SET 

t*errt*t 

* sec8n0apy reference^ 
scram tip 

* Nft UNOEFIKFD SYMB81S 

* ERR8R SEVERITY LEVELS n 

* N6 FRR8R LINES 



AMjstD&P 
<*8CMESS 

WUBUF 
JlEXLY 

^JRNST 
^B S | PP 

wxjcmap 
ox 

keadam 

$ETFLE 
T$WRTERR 



9PEN8IT/000O00U 
PATCH/02 0075E 
PETN/02 007P3 
SETBUFE/OOOOOOFF 
SISET/00000010 
SYSERR/08 00913 
T£LSTAC*/00O00iO0 
VERBl/OS 00000 
SR8MFLG/000O020O 



SUB*R8UTINES 

8PENME/0J? 0079A 
PHSFLQ/00000004 
SCAN/02 008AO 
SETBUFSZ/OOOOOOFF 
STRTB1T/00004000 
SZCELL/00000104 ! 
TMjSI/02 007#* 
VEPBP/06 00000 



©VER/02 00717 
PR8MPT/02 0001D 
SCAN*/02 008*2 
SETSTp/02 008EB 
SYNTAx/02 008F7 
TEL/02 00000 
UOELTFLQ/00000014 
VERSCELL/OQ00002B 
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ASSIGN 


blomtel 


BT31T80 


CDP8 


CIC 


CP8 


CPXBRfaK 


CPXR£AD 


CUP© 


DCACCkSS 


EP8 


FILENT 


FMTELCL 


FPMC 


GET 


JiACCN 


jiamr 


JIA8SIGN 


JJCAlCNT 


JJCCBUF 


JIEXTENT 


JJ INTER 


JJJIT 


vJJLMN 


JI8PT 


JISTART 


JITELFLGS 


JiUNAMg 


JJUTIME 


JBJCCARS 


JBIPCW 


JBSPMTS 


JBJPRfV 


JBIT^TS 


JHJPC 


KILLMTFL 


m:uc 


MJXX 


MASKS 


M^DE 


PACC 


PLIST 


PPAS 


PRDCRM 


prdprm 


RESET 


sjceup 


SAVE 


SBUFlyPA 


SBUF2VPA 


SETNUMB 


SHILNM 


SS 


SVlLSrZ 


T$ERR 


TPACCESS 


writeam 


XA 


XFFFP 


JBIG 



XCR©XtR»XER6XFRexER8XER8XtR0xFR9XERPXeReXE«0XER0XERaxERaxER8XERaxCR9XEReXER8XER0XERexER0XERex£R»XER0xCWxeR8x 
XEReXEReXEReXFRBXERBX£RBXtReXER0XEReXEReXEReXEReXER8XER8XeReXEReXER©XER9XER6XERBXER6XER8XER8XER9XER©XER8XERSX 

18139 SEP OS* '75 IDiOllg 

ELAPSED J8B TIME ?C6 

PARTTTI8N NUMBfR 14 

T8TAL CPU TIMF 5.0994 

PR8CESS8R EXFCUTI8N TlMfe 4.6542 

PP8CESS8R SFRViCE TJMp .4453 

CARDS* CARDS READ pi 

PAGES* PP8CESS8R PAGfcS 3«>7 

C8RE! PEAK C8RE(PAGES) 30 

PAGE. MINUTES t77.93l3 

I/8J 8PERATT8MS 2589 

CALS 18013 
FILE SPACE 

PEAK RAD TEMP8RARY 238 

AVLBL DISK PfRMANENT S75 
RESOURCES ALLOCATED 

C8« 32CPASES) 



